%ESERCIZIO SULLA REGRESSIONE%
x <- c(54,29,14,42,37,1)
y <- c(97,97,22,53,114,13)
%Ho inserito in due vettori (x,y) i valori da studiare%
  
par(mfrow=c(1,1))
%Per conoscere la funzione di un comando, digitare "help(COMANDO)"%
  
cor(x,y)
lm(y~x)
%Ho calcolato coefficiente di correlazione tra x,y e i coefficienti per la retta di regressione%

plot(x,y,xlab="DIAMETRO",ylab="ETA'")
abline(lm(y~x))
%Disegno il grafico con "plot" e sovrascrivo la retta di regressione lineare con "abline"%