Predição de preços de imóveis - Regressão Linear Simples
correlacao = cor(imobiliario$ Distancia_metro_Km, imobiliario$Mil_reais_m2)
Interpretação: Existe uma correlação forte e negativa (r = -0.756) entre as variáveis de preço por metro quadrado e distância ao metrô.
regressao.b1 <- lm(data=imobiliario, Mil_reais_m2 ~ Distancia_metro_Km)
summary(regressao.b1)
##
## Call:
## lm(formula = Mil_reais_m2 ~ Distancia_metro_Km, data = imobiliario)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.7759 -0.9554 -0.1587 0.7327 6.9331
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 18.8154 0.4882 38.54 <0.0000000000000002 ***
## Distancia_metro_Km -7.2166 0.3082 -23.41 <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.71 on 411 degrees of freedom
## Multiple R-squared: 0.5715, Adjusted R-squared: 0.5705
## F-statistic: 548.2 on 1 and 411 DF, p-value: < 0.00000000000000022
y_estimado = 18.8154 - 7.2166 * x
O valor estimado do imóvel a 1 Km do metrô é R$ 11.60
O valor estimado de um apartametno de 70m2 a a 1 Km do metrô é R$ 811916.00