# Regressão linear multipla
library(ggplot2)
library(corrgram)
# Leitura dos dados
dados <- read.table("fipecafi_cap3.csv", header = TRUE,sep = ";",dec=",")
names(dados)
dados.mod <- dados[,c(6:11)]

# Correlacao e Covariancia
r <- cor(dados.mod)
r
corrgram(dados.mod)
# Regressao linear
regressao <- lm(RENTPL ~ ALOPER+MARVEN+RENTAT+ALFIN+LUPRE, data=dados.mod)

# quando as outras variaveis sao todas inseridas no modelo...
regressao1 <- lm(RENTPL ~ ., data=dados.mod)
summary(regressao1)

# O método stepwise
step.w <- step(regressao1)
step.w
summary(step.w)