Entrega Parcial

##Asenjo Samamé - Entrega Parcial

##Ejercicio1

Importamos data

library(rio)
data=import("dataPeru.xlsx")

Al querer probar la hipotesis que el buen estado de los locales escolares depende del porcentaje de la poblacion que contribuye a la SUNAT; y del porcentaje de la PEA que está laborando; se llega a comprobar que (con una significancia del 0.05):

data$porcentajePEA <- (data$peaOcupada / data$pobTotal) * 100

h1<- lm(buenEstado ~ contribuyentesSunat + porcentajePEA , data = data)
summary(h1)

## 
## Call:
## lm(formula = buenEstado ~ contribuyentesSunat + porcentajePEA, 
##     data = data)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -10.4595  -3.6279  -0.2737   4.2711  12.1148 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)         -2.367e+01  1.078e+01  -2.196 0.038936 *  
## contribuyentesSunat  1.222e-06  1.449e-06   0.843 0.408093    
## porcentajePEA        1.118e+00  2.925e-01   3.822 0.000931 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 6.214 on 22 degrees of freedom
## Multiple R-squared:  0.4811, Adjusted R-squared:  0.434 
## F-statistic:  10.2 on 2 and 22 DF,  p-value: 0.0007338

h2<- lm(peaOcupada ~ contribuyentesSunat + buenEstado , data = data)
summary(h2)

## 
## Call:
## lm(formula = peaOcupada ~ contribuyentesSunat + buenEstado, data = data)
## 
## 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