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)