diff --git a/index.Rmd b/index.Rmd
index 09e25ee..3bd2b33 100644
--- a/index.Rmd
+++ b/index.Rmd
@@ -151,7 +151,7 @@ $CBA_{pc}*ht19$
- `r text_spec2("LP del hogar")`
-$CBA_{pc}*ht19 + CBNA_{pc}*n^{0.8}$
+$CBA_{pc}*ht19 + CBNA_{pc}*ht19^{0.8}$
El exponente que mide las economías de escala en el gasto no alimentario es 0,8.
@@ -188,10 +188,10 @@ pobres_hogares <- get_estimation_mean(ech19, variable = "poor", level = "h", ids
pobres_personas <- get_estimation_mean(ech19, variable = "poor", level = "i", ids = "upm", estrato = "estrato") #<<
# Hogares según situación de indigencia
-pobres_hogares <- get_estimation_mean(ech19, variable = "indigent", level = "h", ids = "upm", estrato = "estrato") #<<
+indigencia_hogares <- get_estimation_mean(ech19, variable = "indigent", level = "h", ids = "upm", estrato = "estrato") #<<
# Personas según situación de indigencia
-pobres_personas <- get_estimation_mean(ech19, variable = "indigent", level = "i", ids = "upm", estrato = "estrato") #<<
+indigencia_personas <- get_estimation_mean(ech19, variable = "indigent", level = "i", ids = "upm", estrato = "estrato") #<<
```
---
# Ejercicio
@@ -247,10 +247,10 @@ Estimamos la variable cantidad de NBI
```{r eval = FALSE}
# Distribución de hogares según cantidad de NBI que presenta
-nbi_hogares <- get_estimation_mean(df, variable = "UBN", level = "h", ids = "upm", estrato = "estrato") #<<
+nbi_hogares <- get_estimation_mean(ech19, variable = "UBN", level = "h", ids = "upm", estrato = "estrato") #<<
# Distribución de personas según cantidad de NBI que presenta el hogar
-nbi_personas <- get_estimation_mean(df, variable = "UBN", level = "i", ids = "upm", estrato = "estrato") #<<
+nbi_personas <- get_estimation_mean(ech19, variable = "UBN", level = "i", ids = "upm", estrato = "estrato") #<<
```
---
diff --git a/index.html b/index.html
index 5ad5d75..3a14b0c 100644
--- a/index.html
+++ b/index.html
@@ -1,5 +1,5 @@
-
+
R aplicado a la ECH
@@ -112,7 +112,7 @@
- <span style=" font-weight: bold; border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: #b3e2cd !important;" >LP del hogar</span>
-`\(CBA_{pc}*ht19 + CBNA_{pc}*n^{0.8}\)`
+`\(CBA_{pc}*ht19 + CBNA_{pc}*ht19^{0.8}\)`
El exponente que mide las economías de escala en el gasto no alimentario es 0,8.
@@ -151,10 +151,10 @@
*pobres_personas <- get_estimation_mean(ech19, variable = "poor", level = "i", ids = "upm", estrato = "estrato")
# Hogares según situación de indigencia
-*pobres_hogares <- get_estimation_mean(ech19, variable = "indigent", level = "h", ids = "upm", estrato = "estrato")
+*indigencia_hogares <- get_estimation_mean(ech19, variable = "indigent", level = "h", ids = "upm", estrato = "estrato")
# Personas según situación de indigencia
-*pobres_personas <- get_estimation_mean(ech19, variable = "indigent", level = "i", ids = "upm", estrato = "estrato")
+*indigencia_personas <- get_estimation_mean(ech19, variable = "indigent", level = "i", ids = "upm", estrato = "estrato")
```
---
# Ejercicio
@@ -212,10 +212,10 @@
```r
# Distribución de hogares según cantidad de NBI que presenta
-*nbi_hogares <- get_estimation_mean(df, variable = "UBN", level = "h", ids = "upm", estrato = "estrato")
+*nbi_hogares <- get_estimation_mean(ech19, variable = "UBN", level = "h", ids = "upm", estrato = "estrato")
# Distribución de personas según cantidad de NBI que presenta el hogar
-*nbi_personas <- get_estimation_mean(df, variable = "UBN", level = "i", ids = "upm", estrato = "estrato")
+*nbi_personas <- get_estimation_mean(ech19, variable = "UBN", level = "i", ids = "upm", estrato = "estrato")
```
---
@@ -297,8 +297,7 @@
geometry type: MULTIPOLYGON
dimension: XY
bbox: xmin: 366582.2 ymin: 6127919 xmax: 858252.1 ymax: 6671738
-epsg (SRID): 32721
-proj4string: +proj=utm +zone=21 +south +datum=WGS84 +units=m +no_defs
+CRS: EPSG:32721
```
---
@@ -387,32 +386,6 @@
deleted = true;
});
})();
-(function() {
- "use strict"
- // Replace
+
+