Load Library

library(tidyverse)
library(lubridate)
library(plotly)
library(plyr)  
library(forcats)
library(lattice)

Analysis

tablas_unidas_sna <- read.csv("../../../edsas_bolivia_sna.csv", encoding = "UTF-8")

EDA

## 
## 1989 1994 1998 2003 2008 2016 
## 2681 2996 6332 9311 7806 6152

## 
##  Welch Two Sample t-test
## 
## data:  Talla by EDSA
## t = -10.75, df = 2460.8, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -3.538948 -2.447029
## sample estimates:
## mean in group 2003 mean in group 2016 
##           64.65705           67.65004
## 
##  Welch Two Sample t-test
## 
## data:  Peso by EDSA
## t = -9.5764, df = 2558.8, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.8553975 -0.5646297
## sample estimates:
## mean in group 2003 mean in group 2016 
##           7.393083           8.103097