Para el desarrollo de la evaluación se realiza la importación de labase de datos de viviendas OLX.

library(readxl)
olx_v<- read_excel("~/OneDrive - PUJ Cali/PUJ Msc/Semestre I/Métodos y simulación estadística 2022 - B/olx_viviendas_cali.xlsx", 
    sheet = "datos")

Pregunta 6 Con base en los datos de la base Olx Vivienda Cali.xls calcular, el precio estimado por el modelo de regresion entre el precio (Y) y el Area (X), para una vivienda de 100 metros cuadrados?

require(PerformanceAnalytics)
dat1 = data.frame(olx_v$Precio, olx_v$Area_contruida)
chart.Correlation(dat1)

regresion = lm(olx_v$Precio ~ olx_v$Area_contruida)
summary(regresion)  
## 
## Call:
## lm(formula = olx_v$Precio ~ olx_v$Area_contruida)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.810e+09 -1.331e+08 -5.755e+07  7.352e+07  3.019e+09 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          126617740    6081483   20.82   <2e-16 ***
## olx_v$Area_contruida   1683856      24856   67.74   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 300300000 on 5917 degrees of freedom
## Multiple R-squared:  0.4368, Adjusted R-squared:  0.4367 
## F-statistic:  4589 on 1 and 5917 DF,  p-value: < 2.2e-16
y = 126617740 + 1683856*(100)
y
## [1] 295003340

Pregunta 7 Con base en los datos de la base Olx Vivienda Cali.xls calcular, el area promedio de una casa de estrato 6?

pos = olx_v$Tipo =="Casa"&olx_v$Estrato == 6
puntocho = olx_v[pos,]
sd_area = mean(puntocho$Area_contruida,na.rm = TRUE)
sd_area
## [1] 447.6853

Pregunta 8 Con base en los datos de la base Olx Vivienda Cali.xls calcular, la desviacion estandar del precio de los apartamentos del Estrato 3?

pos1 = olx_v$Tipo =="Apartamento"&olx_v$Estrato == 3
puntocho = olx_v[pos1,]
sd_precio = sd(puntocho$Precio,na.rm = TRUE)
sd_precio
## [1] 65735390

Pregunta 9 Con base en los datos de la base Olx Vivienda Cali.xls calcular, el % de apartamentos en venta en la zona sur?

prop.table(table(olx_v$Tipo,olx_v$Zona))*100
##              
##               Zona Centro Zona Norte Zona Oeste Zona Oriente   Zona Sur
##   Apartamento   0.4307251 20.9081120 19.4544149    1.1306533 15.5419957
##   Casa          2.0997846 13.9088299  3.6432161    8.7939698 14.0882986

Pregunta 10 Con base en los datos de la base Olx Vivienda Cali.xls calcular, el coeficiente de correlacion de Pearson entre el precio y el area de la vivienda?

cor(olx_v$Precio, olx_v$Area_contruida, method = "pearson")
## [1] 0.6609165