====== Aula 17/06 ======

===== Regressão Linear Simples =====

<code R>
data(trees)
plot(trees)
##
## Regressão por mínimos quadrados (minimizando a soma de quadrados dos erros)
##
reg <- lm(Volume ~ Height, data=trees)
reg
## gráfico dos pontos e reta ajustada
with(trees, plot(Volume ~ Height))
abline(reg)

##
## Regressão L1 (minimizando a soma dos módulos dos erros)
##
install.packages("quantreg", det=T)
require(qiantreg)

reg1 <- rq(Volume ~ Height, data=trees)
reg1
## adicionando a linha ajustada ao gráfico
abline(reg1, col=2)
</code>