library(tidyverse)
library(lubridate)
library(plotly)
library(plyr)
library(forcats)
library(lattice)
tablas_unidas_sna <- read.csv("../../../edsas_bolivia_sna.csv", encoding = "UTF-8")
##
## 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