O gráfico apresenta uma distribuição errática. Eis o comando para reta ao final do código.
# m5
# A variável (densidade populacional) 'dens' influencia a (qualidade do ar) 'airq'?
m5<-lm(airq~dens, data=Airq)
m5
summary(m5)
# NÃO, a variável 'dens' não influencia 'airq' (p-value = 0.8).
plot(airq~dens, data=Airq)
# Não há relação significativa entre a densidade populacional e a qualidade do ar, nesta amostra.
curve(1.054e+02+-3.857e-04*x, add=TRUE)
