Não foi possível enviar o arquivo. Será algum problema com as permissões?
Aula 17/06

Aula 17/06

Regressão Linear Simples

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)


QR Code
QR Code disciplinas:ce003a:aula1706 (generated for current page)