Regresiónes con la Huella de Carbono en el transporte

Análisis exploratorio-gráfico de algunas variables

Corriendo modelos

Modelo lineal en T0:

## 
## Call:
## lm(formula = h40.huellaPreWrk ~ as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(GSE) + as.factor(P5_1) + 
##     `Densidad del barrio (hab)` + `Distancia al centro Network` + 
##     `P4[{_1}].Rp`, data = bd1hogarDummy[bd1hogarDummy$`P4[{_1}].Rp` != 
##     99, ])
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -238.1 -111.3  -82.3  -37.0 3771.2 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    49.276837  50.946987   0.967   0.3337  
## as.factor(P3_1)Sí              31.702312  25.542692   1.241   0.2148  
## as.factor(`P5[{_3}].Rp`)Sí    -48.022718  21.660181  -2.217   0.0268 *
## as.factor(`P5[{_6}].Rp`)Sí     -9.861395  33.187623  -0.297   0.7664  
## as.factor(GSE)C2               28.438222  29.051412   0.979   0.3279  
## as.factor(GSE)C3               31.489191  31.788440   0.991   0.3221  
## as.factor(GSE)D                41.065453  35.567428   1.155   0.2485  
## as.factor(GSE)E               -19.520471  55.482222  -0.352   0.7250  
## as.factor(P5_1)Sí              16.367144  21.579511   0.758   0.4483  
## `Densidad del barrio (hab)`     0.202382   0.384021   0.527   0.5983  
## `Distancia al centro Network`   0.004804   0.003721   1.291   0.1970  
## `P4[{_1}].Rp`                   2.102954   3.506360   0.600   0.5488  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 333.8 on 1073 degrees of freedom
##   (57 observations deleted due to missingness)
## Multiple R-squared:  0.01168,    Adjusted R-squared:  0.001545 
## F-statistic: 1.153 on 11 and 1073 DF,  p-value: 0.3164

Modelo lineal en T1:

## 
## Call:
## lm(formula = h40.huellaPstWrk ~ as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(GSE) + as.factor(P5_1) + 
##     `Densidad del barrio (hab)` + `Distancia al centro Network` + 
##     `P4[{_2}].Rp`, data = bd1hogarDummy[bd1hogarDummy$`P4[{_2}].Rp` != 
##     99, ])
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -183.6  -82.4  -56.2  -21.6 3727.1 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    58.262761  41.119270   1.417    0.157  
## as.factor(P3_1)Sí              30.735415  20.893188   1.471    0.142  
## as.factor(`P5[{_3}].Rp`)Sí    -25.772897  17.727150  -1.454    0.146  
## as.factor(`P5[{_6}].Rp`)Sí    -18.811296  26.804087  -0.702    0.483  
## as.factor(GSE)C2                1.072919  23.571927   0.046    0.964  
## as.factor(GSE)C3               -2.633622  25.799123  -0.102    0.919  
## as.factor(GSE)D                16.631667  29.038875   0.573    0.567  
## as.factor(GSE)E               -32.588712  44.514384  -0.732    0.464  
## as.factor(P5_1)Sí             -28.876654  17.549116  -1.645    0.100  
## `Densidad del barrio (hab)`     0.378457   0.314128   1.205    0.229  
## `Distancia al centro Network`   0.005258   0.003030   1.735    0.083 .
## `P4[{_2}].Rp`                  -1.260635   2.112101  -0.597    0.551  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 274.6 on 1094 degrees of freedom
##   (54 observations deleted due to missingness)
## Multiple R-squared:  0.0144, Adjusted R-squared:  0.004489 
## F-statistic: 1.453 on 11 and 1094 DF,  p-value: 0.1437

Modelo lineal en T2:

## 
## Call:
## lm(formula = huellaDicWrk_v2 ~ as.factor(GSE) + as.factor(P3_1) + 
##     as.factor(`P5[{_3}].Rp`) + as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + 
##     `Densidad del barrio (hab)` + `Distancia al centro Network` + 
##     `P4[{_1}].Rp`, data = bd2hogarDummy[bd2hogarDummy$`P4[{_1}].Rp` != 
##     99, ])
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -1359.7  -191.8  -107.5     5.5  7042.5 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.342e+01  8.728e+01   0.383 0.701849    
## as.factor(GSE)C2              -1.180e+02  4.824e+01  -2.447 0.014562 *  
## as.factor(GSE)C3               1.796e+01  5.364e+01   0.335 0.737825    
## as.factor(GSE)D               -5.377e+01  6.009e+01  -0.895 0.371014    
## as.factor(GSE)E               -2.272e+01  9.973e+01  -0.228 0.819800    
## as.factor(P3_1)Sí              1.532e+02  4.314e+01   3.551 0.000399 ***
## as.factor(`P5[{_3}].Rp`)Sí    -1.427e+01  3.514e+01  -0.406 0.684797    
## as.factor(`P5[{_6}].Rp`)Sí     2.413e+01  5.208e+01   0.463 0.643236    
## as.factor(P5_1)Sí             -9.067e+01  3.538e+01  -2.562 0.010517 *  
## `Densidad del barrio (hab)`   -1.549e-01  6.541e-01  -0.237 0.812839    
## `Distancia al centro Network`  8.255e-03  6.177e-03   1.336 0.181677    
## `P4[{_1}].Rp`                  2.755e+01  6.977e+00   3.949 8.31e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 584.8 on 1166 degrees of freedom
## Multiple R-squared:  0.0418, Adjusted R-squared:  0.03276 
## F-statistic: 4.624 on 11 and 1166 DF,  p-value: 6.31e-07

Viendo el desempeño de los modelos

Desempeño de modelos

Name	Model	R2	R2_adjusted	RMSE	Sigma
t0_tr	summary.lm	0.0116773	0.0015453	331.9590	333.8101
t1_tr	summary.lm	0.0143988	0.0044887	273.0913	274.5850
t2_tr	summary.lm	0.0418021	0.0327625	581.8598	584.8463

Viendo los modelos en cada ciudad y contexto temporal

## $`Coronel (Bíobío).T0`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -391.9 -189.3 -106.5    9.8 3473.2 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    301.31913  134.88173   2.234   0.0263 *
## as.factor(GSE)C2               -36.90299   95.41433  -0.387   0.6992  
## as.factor(GSE)C3               -56.18522   99.26120  -0.566   0.5718  
## as.factor(GSE)D               -102.13119  102.86856  -0.993   0.3217  
## as.factor(GSE)E               -166.04504  140.80847  -1.179   0.2393  
## as.factor(P3_1)Sí                4.30962   64.35050   0.067   0.9467  
## as.factor(`P5[{_3}].Rp`)Sí    -112.66438   55.18175  -2.042   0.0421 *
## as.factor(`P5[{_6}].Rp`)Sí     121.97148   75.00804   1.626   0.1051  
## as.factor(P5_1)Sí               66.13719   57.36927   1.153   0.2500  
## `Densidad del barrio (hab)`     -0.76068    0.78544  -0.968   0.3337  
## `Distancia al centro Network`   -0.02133    0.01207  -1.767   0.0783 .
## tripsFood                       -0.84315    1.56840  -0.538   0.5913  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 447.7 on 275 degrees of freedom
##   (13 observations deleted due to missingness)
## Multiple R-squared:  0.05257,    Adjusted R-squared:  0.01468 
## F-statistic: 1.387 on 11 and 275 DF,  p-value: 0.1783
## 
## 
## $`Osorno (Los Lagos).T0`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -352.57  -82.87  -47.58    4.93 2128.20 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    2.137e+02  8.953e+01   2.387 0.017654 *  
## as.factor(GSE)C2              -7.750e+00  4.011e+01  -0.193 0.846929    
## as.factor(GSE)C3               1.829e+01  4.307e+01   0.425 0.671408    
## as.factor(GSE)D                5.532e+01  5.178e+01   1.068 0.286256    
## as.factor(GSE)E                6.810e+01  7.106e+01   0.958 0.338741    
## as.factor(P3_1)Sí              6.257e+01  3.304e+01   1.894 0.059315 .  
## as.factor(`P5[{_3}].Rp`)Sí    -2.156e+01  2.999e+01  -0.719 0.472796    
## as.factor(`P5[{_6}].Rp`)Sí    -2.188e+02  5.706e+01  -3.835 0.000156 ***
## as.factor(P5_1)Sí             -2.358e+01  2.896e+01  -0.814 0.416260    
## `Densidad del barrio (hab)`    9.055e-01  8.801e-01   1.029 0.304454    
## `Distancia al centro Network` -5.595e-04  1.773e-02  -0.032 0.974851    
## tripsFood                     -9.000e-01  7.655e-01  -1.176 0.240778    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 228.3 on 272 degrees of freedom
##   (16 observations deleted due to missingness)
## Multiple R-squared:  0.08764,    Adjusted R-squared:  0.05074 
## F-statistic: 2.375 on 11 and 272 DF,  p-value: 0.008084
## 
## 
## $`Temuco / Padre las Casas (La Araucanía).T0`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -242.7  -91.8  -47.9  -18.0 3357.9 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   -21.315725 136.273831  -0.156    0.876
## as.factor(GSE)C2               60.474018  49.115517   1.231    0.219
## as.factor(GSE)C3               -4.726582  55.004866  -0.086    0.932
## as.factor(GSE)D                -0.049574  60.068459  -0.001    0.999
## as.factor(GSE)E               -21.002627  89.390324  -0.235    0.814
## as.factor(P3_1)Sí              42.442978  45.988288   0.923    0.357
## as.factor(`P5[{_3}].Rp`)Sí    -17.618697  36.895985  -0.478    0.633
## as.factor(`P5[{_6}].Rp`)Sí      3.569721  80.516729   0.044    0.965
## as.factor(P5_1)Sí              18.032715  37.633138   0.479    0.632
## `Densidad del barrio (hab)`     0.319287   1.556264   0.205    0.838
## `Distancia al centro Network`   0.008867   0.005807   1.527    0.128
## tripsFood                      -0.468541   0.735338  -0.637    0.525
## 
## Residual standard error: 292.2 on 272 degrees of freedom
##   (16 observations deleted due to missingness)
## Multiple R-squared:  0.027,  Adjusted R-squared:  -0.01235 
## F-statistic: 0.6862 on 11 and 272 DF,  p-value: 0.7515
## 
## 
## $`Valdivia (Los Ríos).T0`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -425.48  -92.14  -53.92  -11.00 2972.57 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                   -52.02154   81.94419  -0.635  0.52607   
## as.factor(GSE)C2               16.10825   47.00037   0.343  0.73207   
## as.factor(GSE)C3               14.18725   55.23978   0.257  0.79751   
## as.factor(GSE)D                -3.13513   69.35365  -0.045  0.96398   
## as.factor(GSE)E               -87.51136  128.11520  -0.683  0.49515   
## as.factor(P3_1)Sí              16.57247   51.38717   0.323  0.74732   
## as.factor(`P5[{_3}].Rp`)Sí     17.55436   41.83979   0.420  0.67514   
## as.factor(`P5[{_6}].Rp`)Sí      3.73155   50.48317   0.074  0.94113   
## as.factor(P5_1)Sí             -14.99916   38.38766  -0.391  0.69631   
## `Densidad del barrio (hab)`     1.81890    0.67918   2.678  0.00786 **
## `Distancia al centro Network`   0.01220    0.00539   2.263  0.02444 * 
## tripsFood                       2.42991    0.92758   2.620  0.00930 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 302.2 on 268 degrees of freedom
##   (20 observations deleted due to missingness)
## Multiple R-squared:  0.06688,    Adjusted R-squared:  0.02858 
## F-statistic: 1.746 on 11 and 268 DF,  p-value: 0.06364
## 
## 
## $`Coronel (Bíobío).T1`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -217.6 -118.0  -58.0   20.1 3668.7 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   105.504140 101.653457   1.038    0.300
## as.factor(GSE)C2              -59.239971  72.126989  -0.821    0.412
## as.factor(GSE)C3               -7.068199  75.145476  -0.094    0.925
## as.factor(GSE)D               -66.592416  77.985874  -0.854    0.394
## as.factor(GSE)E               -73.621820 106.455098  -0.692    0.490
## as.factor(P3_1)Sí              11.608251  48.526457   0.239    0.811
## as.factor(`P5[{_3}].Rp`)Sí    -44.017054  41.733045  -1.055    0.292
## as.factor(`P5[{_6}].Rp`)Sí     66.505491  56.599963   1.175    0.241
## as.factor(P5_1)Sí             -46.050065  43.336957  -1.063    0.289
## `Densidad del barrio (hab)`    -0.047013   0.593562  -0.079    0.937
## `Distancia al centro Network`   0.004581   0.009126   0.502    0.616
## tripsFood                      -0.896117   1.086568  -0.825    0.410
## 
## Residual standard error: 338.5 on 275 degrees of freedom
##   (13 observations deleted due to missingness)
## Multiple R-squared:  0.02899,    Adjusted R-squared:  -0.009855 
## F-statistic: 0.7463 on 11 and 275 DF,  p-value: 0.6934
## 
## 
## $`Osorno (Los Lagos).T1`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -326.80  -83.81  -41.73    4.09 3133.82 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                    165.86871  106.01209   1.565   0.1188   
## as.factor(GSE)C2               -25.94123   47.13649  -0.550   0.5825   
## as.factor(GSE)C3               -64.58456   51.01987  -1.266   0.2066   
## as.factor(GSE)D                 51.89976   60.79264   0.854   0.3940   
## as.factor(GSE)E                  2.53267   83.38457   0.030   0.9758   
## as.factor(P3_1)Sí               52.54093   38.75074   1.356   0.1763   
## as.factor(`P5[{_3}].Rp`)Sí     -20.50649   35.13014  -0.584   0.5599   
## as.factor(`P5[{_6}].Rp`)Sí    -203.41533   67.19194  -3.027   0.0027 **
## as.factor(P5_1)Sí              -15.96777   33.99951  -0.470   0.6390   
## `Densidad del barrio (hab)`      1.34949    1.03379   1.305   0.1929   
## `Distancia al centro Network`    0.00901    0.02089   0.431   0.6666   
## tripsFood                       -0.51318    1.26077  -0.407   0.6843   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 267.9 on 272 degrees of freedom
##   (16 observations deleted due to missingness)
## Multiple R-squared:  0.07362,    Adjusted R-squared:  0.03615 
## F-statistic: 1.965 on 11 and 272 DF,  p-value: 0.03195
## 
## 
## $`Temuco / Padre las Casas (La Araucanía).T1`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -175.9  -75.2  -39.3   -4.1 3395.9 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   -77.729378 122.544021  -0.634    0.526
## as.factor(GSE)C2               70.257475  44.454790   1.580    0.115
## as.factor(GSE)C3                5.401024  49.797114   0.108    0.914
## as.factor(GSE)D                24.376357  54.320854   0.449    0.654
## as.factor(GSE)E                -5.971379  80.421391  -0.074    0.941
## as.factor(P3_1)Sí              43.716428  41.636070   1.050    0.295
## as.factor(`P5[{_3}].Rp`)Sí    -19.344939  33.167134  -0.583    0.560
## as.factor(`P5[{_6}].Rp`)Sí     19.566092  72.700047   0.269    0.788
## as.factor(P5_1)Sí              -8.317277  33.937378  -0.245    0.807
## `Densidad del barrio (hab)`     0.847505   1.414808   0.599    0.550
## `Distancia al centro Network`   0.005692   0.005259   1.082    0.280
## tripsFood                      -0.481553   1.010462  -0.477    0.634
## 
## Residual standard error: 264.5 on 272 degrees of freedom
##   (16 observations deleted due to missingness)
## Multiple R-squared:  0.02887,    Adjusted R-squared:  -0.01041 
## F-statistic: 0.735 on 11 and 272 DF,  p-value: 0.7045
## 
## 
## $`Valdivia (Los Ríos).T1`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -148.81  -78.89  -47.47  -16.42 1107.96 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    78.088996  52.645170   1.483   0.1392  
## as.factor(GSE)C2              -23.079488  30.310291  -0.761   0.4471  
## as.factor(GSE)C3              -22.320767  35.546703  -0.628   0.5306  
## as.factor(GSE)D                 9.402246  44.663973   0.211   0.8334  
## as.factor(GSE)E               -66.778485  82.950833  -0.805   0.4215  
## as.factor(P3_1)Sí              12.620580  33.291385   0.379   0.7049  
## as.factor(`P5[{_3}].Rp`)Sí     12.983905  26.942293   0.482   0.6303  
## as.factor(`P5[{_6}].Rp`)Sí    -11.233486  32.543734  -0.345   0.7302  
## as.factor(P5_1)Sí             -52.827552  24.723870  -2.137   0.0335 *
## `Densidad del barrio (hab)`     0.444421   0.437022   1.017   0.3101  
## `Distancia al centro Network`   0.004060   0.003469   1.170   0.2429  
## tripsFood                      -0.379919   0.821169  -0.463   0.6440  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 194.6 on 268 degrees of freedom
##   (20 observations deleted due to missingness)
## Multiple R-squared:  0.0344, Adjusted R-squared:  -0.005237 
## F-statistic: 0.8679 on 11 and 268 DF,  p-value: 0.5725
## 
## 
## $`Coronel (Bíobío).T2`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -731.1 -191.9  -91.9   35.1 3644.0 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                    2.300e+02  1.916e+02   1.200   0.2310  
## as.factor(GSE)C2              -2.826e+02  1.248e+02  -2.265   0.0242 *
## as.factor(GSE)C3              -1.765e+02  1.254e+02  -1.407   0.1605  
## as.factor(GSE)D               -1.713e+02  1.305e+02  -1.313   0.1904  
## as.factor(GSE)E               -2.239e+02  2.396e+02  -0.934   0.3509  
## as.factor(P3_1)Sí              1.955e+02  8.611e+01   2.271   0.0239 *
## as.factor(`P5[{_3}].Rp`)Sí    -7.623e+00  7.011e+01  -0.109   0.9135  
## as.factor(`P5[{_6}].Rp`)Sí    -7.036e+01  9.976e+01  -0.705   0.4812  
## as.factor(P5_1)Sí             -8.078e+01  7.009e+01  -1.152   0.2501  
## `Densidad del barrio (hab)`    1.175e+00  9.748e-01   1.205   0.2291  
## `Distancia al centro Network`  9.070e-04  1.544e-02   0.059   0.9532  
## tripsFood                      6.124e+00  3.364e+00   1.820   0.0697 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 573.4 on 288 degrees of freedom
## Multiple R-squared:  0.06424,    Adjusted R-squared:  0.0285 
## F-statistic: 1.798 on 11 and 288 DF,  p-value: 0.05397
## 
## 
## $`Osorno (Los Lagos).T2`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -642.3 -246.5 -108.0   93.3 5781.0 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    188.86478  216.84065   0.871 0.384488    
## as.factor(GSE)C2                56.43833  103.68212   0.544 0.586629    
## as.factor(GSE)C3               258.47022  117.03025   2.209 0.027992 *  
## as.factor(GSE)D                 76.19669  130.97321   0.582 0.561175    
## as.factor(GSE)E                282.30363  222.19047   1.271 0.204915    
## as.factor(P3_1)Sí              173.53952   91.94042   1.888 0.060096 .  
## as.factor(`P5[{_3}].Rp`)Sí     108.61998   73.75186   1.473 0.141903    
## as.factor(`P5[{_6}].Rp`)Sí     154.45060  127.96548   1.207 0.228434    
## as.factor(P5_1)Sí             -276.19728   74.18388  -3.723 0.000237 ***
## `Densidad del barrio (hab)`     -2.82611    2.23766  -1.263 0.207620    
## `Distancia al centro Network`   -0.04614    0.04446  -1.038 0.300209    
## tripsFood                        0.07642    2.40509   0.032 0.974675    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 607.9 on 288 degrees of freedom
## Multiple R-squared:  0.0926, Adjusted R-squared:  0.05794 
## F-statistic: 2.672 on 11 and 288 DF,  p-value: 0.002793
## 
## 
## $`Temuco / Padre las Casas (La Araucanía).T2`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -304.7 -116.3  -71.0    3.6 4087.2 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)                    1.350e+02  1.526e+02   0.884    0.377
## as.factor(GSE)C2              -2.254e+01  5.715e+01  -0.394    0.694
## as.factor(GSE)C3              -2.529e+01  6.645e+01  -0.381    0.704
## as.factor(GSE)D               -7.914e+01  7.799e+01  -1.015    0.311
## as.factor(GSE)E                1.022e+01  1.038e+02   0.099    0.922
## as.factor(P3_1)Sí              8.304e+01  5.146e+01   1.614    0.108
## as.factor(`P5[{_3}].Rp`)Sí    -5.892e+01  4.375e+01  -1.347    0.179
## as.factor(`P5[{_6}].Rp`)Sí    -1.135e+02  8.127e+01  -1.396    0.164
## as.factor(P5_1)Sí             -3.278e+01  4.541e+01  -0.722    0.471
## `Densidad del barrio (hab)`    6.131e-01  1.864e+00   0.329    0.742
## `Distancia al centro Network`  1.001e-02  6.413e-03   1.562    0.119
## tripsFood                     -1.299e-01  1.451e+00  -0.090    0.929
## 
## Residual standard error: 364.9 on 288 degrees of freedom
## Multiple R-squared:  0.03927,    Adjusted R-squared:  0.002571 
## F-statistic:  1.07 on 11 and 288 DF,  p-value: 0.3854
## 
## 
## $`Valdivia (Los Ríos).T2`
## 
## Call:
## lm(formula = Huella ~ as.factor(GSE) + as.factor(P3_1) + as.factor(`P5[{_3}].Rp`) + 
##     as.factor(`P5[{_6}].Rp`) + as.factor(P5_1) + `Densidad del barrio (hab)` + 
##     `Distancia al centro Network` + tripsFood, data = x)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -598.5 -265.8  -96.3    4.2 7347.5 
## 
## Coefficients:
##                                 Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   -3.028e+01  1.928e+02  -0.157   0.8753  
## as.factor(GSE)C2              -2.146e+02  1.082e+02  -1.984   0.0482 *
## as.factor(GSE)C3               1.962e+01  1.363e+02   0.144   0.8856  
## as.factor(GSE)D               -4.380e+01  1.674e+02  -0.262   0.7937  
## as.factor(GSE)E               -1.104e+02  2.483e+02  -0.445   0.6570  
## as.factor(P3_1)Sí              1.755e+02  1.118e+02   1.569   0.1177  
## as.factor(`P5[{_3}].Rp`)Sí    -8.302e+01  8.793e+01  -0.944   0.3459  
## as.factor(`P5[{_6}].Rp`)Sí     1.291e+02  1.090e+02   1.185   0.2370  
## as.factor(P5_1)Sí              4.873e+01  8.774e+01   0.555   0.5791  
## `Densidad del barrio (hab)`    2.761e-01  1.541e+00   0.179   0.8579  
## `Distancia al centro Network`  9.818e-03  1.303e-02   0.753   0.4519  
## tripsFood                      1.590e+00  3.389e+00   0.469   0.6392  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 725.6 on 288 degrees of freedom
## Multiple R-squared:  0.0455, Adjusted R-squared:  0.009043 
## F-statistic: 1.248 on 11 and 288 DF,  p-value: 0.2548

Viendo el desempeño de los modelos de cada ciudad y contexto temporal

##            Name      Model         R2  R2_adjusted     RMSE    Sigma
## 1   tr_spl[[1]] summary.lm 0.05257499  0.014677992 438.2028 447.6615
## 2   tr_spl[[2]] summary.lm 0.08763822  0.050741235 223.3816 228.2560
## 3   tr_spl[[3]] summary.lm 0.02699963 -0.012349650 285.9684 292.2084
## 4   tr_spl[[4]] summary.lm 0.06688322  0.028583651 295.6194 302.1652
## 5   tr_spl[[5]] summary.lm 0.02898605 -0.009854506 331.3353 338.4872
## 6   tr_spl[[6]] summary.lm 0.07361826  0.036154294 262.2153 267.9370
## 7   tr_spl[[7]] summary.lm 0.02886594 -0.010407863 258.8449 264.4931
## 8   tr_spl[[8]] summary.lm 0.03439598 -0.005237020 190.3653 194.5806
## 9   tr_spl[[9]] summary.lm 0.06424459  0.028503930 561.7853 573.3697
## 10 tr_spl[[10]] summary.lm 0.09259871  0.057941020 595.6047 607.8865
## 11 tr_spl[[11]] summary.lm 0.03926558  0.002570866 357.5186 364.8909
## 12 tr_spl[[12]] summary.lm 0.04549987  0.009043267 710.9306 725.5905

Diccionario:

• tr_spl[[1]]= "Coronel (Bíobío).T0"
• tr_spl[[2]]= "Osorno (Los Lagos).T0"
• tr_spl[[3]]= "Temuco / Padre las Casas (La Araucanía).T0"
• tr_spl[[4]]= "Valdivia (Los Ríos).T0"
• tr_spl[[5]]= "Coronel (Bíobío).T1"
• tr_spl[[6]]= "Osorno (Los Lagos).T1"
  
• tr_spl[[7]]= "Temuco / Padre las Casas (La Araucanía).T1"
• tr_spl[[8]]= "Valdivia (Los Ríos).T1"
• tr_spl[[9]]= "Coronel (Bíobío).T2"
  
• tr_spl[[10]]= "Osorno (Los Lagos).T2"
• tr_spl[[11]]= "Temuco / Padre las Casas (La Araucanía).T2"
• tr_spl[[12]]= "Valdivia (Los Ríos).T2"

Viendo el desempeño de los modelos de cada ciudad y contexto temporal