####################
#SCRIPT de Apoio ao exercício R1.3
####################

x<-c(1,2,4,5,8,10,12,15) ### esta é a concentracao
y<-c(4,9,18,20,35,41,42,60)  ## esta é a densidade

plot(x,y,col="green",lwd=3)
cor(x,y)

lm(y~x) #dá os coeficientes da recta dos mínimos quadrados

#vamos desenhar a recta
#primeiro marcar a nuvem de pontos
plot(x,y,col="green",lwd=3)

#agora o comando abline(), desenha a recta construida com o lm
abline(lm(y~x),col="blue", lwd=2)
###
mean(x)
median(x)
var(x)