PARTE 1: CREARE FOGLIO EXCEL COI DATI E CARICARLO SU R

trovare dati (nell'es. in aula abbiamo preso, dagli esercizi 4 e 5
del Capitolo 6, la tabella messa in rete sotto il nome di nazioni3.txt)

creare foglio Excel con tabella di dati

trasformare virgole in punti su foglio di testo

caricarli su R

---------------------------------------------------
PARTE 2: ESAMINARE LA TABELLA


esaminarli (cor, plot, PCA) (fase di assimilazione dei dati)

se necessario, standardizzarli e ripetere

As<-A; for (i in 1:10) { As[,i]<-( A[,i]-mean(A[,i]))/sd(A[,i]) }

PCA<-princomp(As)

plot(PCA)
summary(PCA)
biplot(PCA)
loadings(PCA)

---------------------------------------------------
PARTE 3: REGRESSIONI PER SPIEGARE TD


regressioni successive per sfoltimento

TD <- A[,1]
RD <- A[,2]
PE <- A[,3]
HC <- A[,4]
X.TD <- A[,5]
X.SP <- A[,6]
X.TAX <- A[,7]
X.PB <- A[,8]
X.PIL <- A[,9]
X.LC <- A[,10]

reg1 <- lm(TD~RD+PE+HC+X.TD+X.SP+X.TAX+X.PB+X.PIL+X.LC)
summary(reg1)


eliminazioni guidate da p-value e correlazioni (nota: allineamenti)
(osservare ai vari passi come cambiano p-value, R^2, segni dei coefficienti,
anche in relazione ad allieneamenti)


reg1 <- lm(TD~RD+PE+HC+X.SP+X.TAX+X.PB+X.PIL+X.LC)
summary(reg1)

reg1 <- lm(TD~RD+PE+HC+X.SP+X.PB+X.PIL+X.LC)
summary(reg1)

reg1 <- lm(TD~RD+PE+HC+X.SP+X.PIL+X.LC)
summary(reg1)

reg1 <- lm(TD~RD+PE+HC+X.SP+X.LC)
summary(reg1)

reg1 <- lm(TD~RD+PE+X.SP+X.LC)
summary(reg1)


Sostituire singole variabili riassuntive?


----------------------
VARIANTE: METODO INVERSO

reg2 <- lm(TD~X.LC)
summary(reg2)

reg2 <- lm(TD~+PE+X.LC)
summary(reg2)

ecc.