update

calcita · Oct 4, 2020 · b50b437 · b50b437
1 parent 49fede0
commit b50b437
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 39 deletions.
diff --git 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
@@ -1,5 +1,5 @@
 <!DOCTYPE html>
-<html lang="" xml:lang="">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="" xml:lang="">
   <head>
     <title>R aplicado a la ECH</title>
     <meta charset="utf-8" />
@@ -112,7 +112,7 @@
 
 - &lt;span style=" font-weight: bold;    border-radius: 4px; padding-right: 4px; padding-left: 4px; background-color: #b3e2cd !important;" &gt;LP del hogar&lt;/span&gt;
 
-`\(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 &lt;- get_estimation_mean(ech19, variable = "poor", level = "i", ids = "upm", estrato = "estrato")
 
 # Hogares según situación de indigencia
-*pobres_hogares &lt;- get_estimation_mean(ech19, variable = "indigent", level = "h", ids = "upm", estrato = "estrato")
+*indigencia_hogares &lt;- get_estimation_mean(ech19, variable = "indigent", level = "h", ids = "upm", estrato = "estrato")
 
 # Personas según situación de indigencia
-*pobres_personas &lt;- get_estimation_mean(ech19, variable = "indigent", level = "i", ids = "upm", estrato = "estrato")
+*indigencia_personas &lt;- 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 &lt;- get_estimation_mean(df, variable = "UBN", level = "h", ids = "upm", estrato = "estrato")
+*nbi_hogares &lt;- 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 &lt;- get_estimation_mean(df, variable = "UBN", level = "i", ids = "upm", estrato = "estrato")
+*nbi_personas &lt;- 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 <script> tags in slides area to make them executable
-  var scripts = document.querySelectorAll(
-    '.remark-slides-area .remark-slide-container script'
-  );
-  if (!scripts.length) return;
-  for (var i = 0; i < scripts.length; i++) {
-    var s = document.createElement('script');
-    var code = document.createTextNode(scripts[i].textContent);
-    s.appendChild(code);
-    var scriptAttrs = scripts[i].attributes;
-    for (var j = 0; j < scriptAttrs.length; j++) {
-      s.setAttribute(scriptAttrs[j].name, scriptAttrs[j].value);
-    }
-    scripts[i].parentElement.replaceChild(s, scripts[i]);
-  }
-})();
-(function() {
-  var links = document.getElementsByTagName('a');
-  for (var i = 0; i < links.length; i++) {
-    if (/^(https?:)?\/\//.test(links[i].getAttribute('href'))) {
-      links[i].target = '_blank';
-    }
-  }
-})();
 // adds .remark-code-has-line-highlighted class to <pre> parent elements
 // of code chunks containing highlighted lines with class .remark-code-line-highlighted
 (function(d) {
@@ -431,6 +404,17 @@
   preParents.forEach(p => p.classList.add("remark-code-has-line-highlighted"));
 })(document);</script>
 
+<script>
+(function() {
+  var links = document.getElementsByTagName('a');
+  for (var i = 0; i < links.length; i++) {
+    if (/^(https?:)?\/\//.test(links[i].getAttribute('href'))) {
+      links[i].target = '_blank';
+    }
+  }
+})();
+</script>
+
 <script>
 slideshow._releaseMath = function(el) {
   var i, text, code, codes = el.getElementsByTagName('code');

diff --git a/index_files/figure-html/unnamed-chunk-13-1.png b/index_files/figure-html/unnamed-chunk-13-1.png