#Parte 1:

library(rio)
## Warning: package 'rio' was built under R version 4.3.2
carcel=import("dataPeru.xlsx")

A)

carcel$porcentaje_contribuyentesSunat <- (carcel$contribuyentesSunat / carcel$pobTotal) * 100
carcel$porcentaje_peaOcupada <- (carcel$peaOcupada / carcel$pobTotal) * 100
modelo <- lm(buenEstado ~ porcentaje_contribuyentesSunat + porcentaje_peaOcupada, data = carcel)
summary(modelo)
## 
## Call:
## lm(formula = buenEstado ~ porcentaje_contribuyentesSunat + porcentaje_peaOcupada, 
##     data = carcel)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -10.0928  -4.3610   0.2575   4.4003  11.0196 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    -22.6095    15.9617  -1.416    0.171
## porcentaje_contribuyentesSunat   0.1003     0.3121   0.321    0.751
## porcentaje_peaOcupada            1.0218     0.6424   1.590    0.126
## 
## Residual standard error: 6.299 on 22 degrees of freedom
## Multiple R-squared:  0.4669, Adjusted R-squared:  0.4184 
## F-statistic: 9.633 on 2 and 22 DF,  p-value: 0.000989

Interpretacion: :

Ninguna de las variables tiene un efecto significativo sobre el porcentaje de locales escolares en buen estado al nivel de significancia del 0.05, ya que ambos p-valores son mayores a 0.05.

##Respuesta Según los resultados, ni el porcentaje de la población que contribuye a la SUNAT ni el porcentaje de la PEA ocupada tienen un efecto significativo sobre el buen estado de los locales escolares. Por lo tanto, la respuesta correcta sería: “El porcentaje de la población que contribuye a la SUNAT ni el porcentaje de la PEA que está laborando tienen efecto”.

B)

modelo_pea <- lm(peaOcupada ~ contribuyentesSunat + buenEstado, data = carcel)
summary(modelo_pea)
## 
## Call:
## lm(formula = peaOcupada ~ contribuyentesSunat + buenEstado, data = carcel)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -91867 -58573 -11166  46174 155851 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          1.155e+05  3.787e+04   3.049  0.00588 ** 
## contribuyentesSunat  9.206e-01  1.741e-02  52.872  < 2e-16 ***
## buenEstado          -1.412e+03  1.983e+03  -0.712  0.48395    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 74540 on 22 degrees of freedom
## Multiple R-squared:  0.9932, Adjusted R-squared:  0.9926 
## F-statistic:  1603 on 2 and 22 DF,  p-value: < 2.2e-16

Interpretacion:

Contribuyentes a la SUNAT tiene un p-valor extremadamente bajo (< 2e-16), lo que indica que esta variable es muy significativa en el modelo. Esto significa que la cantidad de contribuyentes a la SUNAT tiene un efecto significativo sobre la cantidad de PEA ocupada.

Porcentaje de locales escolares en buen estado tiene un p-valor de 0.484, que es mayor que 0.05, lo que significa que no es significativo en el modelo. Esto indica que el porcentaje de locales escolares en buen estado no tiene un efecto significativo sobre la cantidad de PEA ocupada.

Respuesta: La variable de contribuyentes tiene efecto