link="https://docs.google.com/spreadsheets/d/e/2PACX-1vTu36kC_TUzb7vXJ6cFkJZhQmOP-2wrjPtgESTLxdRijErefbjWXv11qAgH-Xp4vag-L3rOr7g54tWJ/pub?gid=0&single=true&output=csv"
data=read.csv(link,stringsAsFactors = F)#INFORMALIDAD 2018 #Variables #Dependiente : Informalidad #FLE: Fuerza laboral educada (al menos educación superior) #EA: Empleo adecuado:Se consideran como trabajadores adecuadamente empleados, aquellos que voluntariamente trabajan un número de horas menor a la duración de una jornada laboral normal, y no desean trabajar más #BG:Brecha de género en ingresos laborales(valor de porcentaje de los ingresos laborables masculino que exceden los ingresos laborales femeninos) #CEF:Creación de empleo formal ( Promedio movil 3 años de variación anual )
data$Ingresos = NULLdata$REGIONES = NULLsummary(data)## Informalidad FLE EA BG CEF
## Min. :56.8 Min. :16.60 Min. :27.90 Min. :13.4 Min. :-0.900
## 1st Qu.:74.2 1st Qu.:21.80 1st Qu.:36.30 1st Qu.:26.7 1st Qu.: 0.600
## Median :80.3 Median :27.30 Median :46.30 Median :31.6 Median : 1.100
## Mean :78.4 Mean :28.01 Mean :50.06 Mean :30.8 Mean : 1.212
## 3rd Qu.:85.4 3rd Qu.:31.70 3rd Qu.:62.00 3rd Qu.:36.5 3rd Qu.: 2.100
## Max. :91.4 Max. :44.30 Max. :74.30 Max. :44.1 Max. : 3.500regresion=lm(Informalidad~.,data=data)
summary(regresion)##
## Call:
## lm(formula = Informalidad ~ ., data = data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.7618 -1.5688 -0.2748 0.5928 5.0917
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 108.30751 3.17188 34.146 < 2e-16 ***
## FLE -0.77723 0.16531 -4.702 0.000137 ***
## EA -0.17513 0.09498 -1.844 0.080075 .
## BG 0.02496 0.08137 0.307 0.762186
## CEF -0.11432 0.54294 -0.211 0.835368
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.788 on 20 degrees of freedom
## Multiple R-squared: 0.9221, Adjusted R-squared: 0.9065
## F-statistic: 59.15 on 4 and 20 DF, p-value: 8.456e-11