Se crearon vectores basados en la clasificación de los municipios de acuerdo al nivel de necesidades. Un vector con los nombres de los municipios y otro con la probabilidad de elección, la cual fue proporcional al peso dentro del estrato.
bajo<-c("Acandí",
"Bahía Solano",
"El Carmen de Atrato",
"Atrato"
)
prob_bajo<-c(0.364,0.265,0.211,0.160)medio<-c("Cértegui",
"El Cantón del San Pablo",
"Unión Panamericana",
"Nóvita",
"San José del Palmar",
"Tadó",
"Unguía"
)
prob_medio<-c(0.090,0.098,0.109,0.143,0.078,0.281,0.201)moderado<-c("Condoto",
"Sipí",
"Río Iró",
"Río Quito",
"Juradó",
"Medio San Juan",
"Nuquí"
)
prob_moderado<-c(0.193,0.050,0.087,0.132,0.107,0.169,0.260)alto<-c("Bagadó",
"Carmen del Darién",
"Istmina",
"Medio Atrato",
"Medio Baudó",
"Alto Baudó",
"Bajo Baudó",
"Bojayá",
"Riosucio",
"El Litoral del San Juan",
"Lloró"
)
prob_alto<-c(0.046,0.079,0.125,0.044,0.063,0.114,0.123,0.050,0.223,0.093,0.04)estrato_bajo<-sample(bajo, 2, replace = F, prob=prob_bajo)
estrato_medio<-sample(medio, 2, replace = F, prob=prob_medio)
estrato_moderado<-sample(moderado, 2, replace = F, prob=prob_moderado)
estrato_alto<-sample(alto, 2, replace = F, prob=prob_alto)
municipios<-cbind(estrato_bajo,estrato_medio,estrato_moderado,estrato_alto)
municipios## estrato_bajo estrato_medio estrato_moderado estrato_alto
## [1,] "Atrato" "Tadó" "Medio San Juan" "Alto Baudó"
## [2,] "El Carmen de Atrato" "Unguía" "Juradó" "Riosucio"library(xtable)
xtable(municipios)## % latex table generated in R 3.6.2 by xtable 1.8-4 package
## % Sun May 17 19:34:50 2020
## \begin{table}[ht]
## \centering
## \begin{tabular}{rllll}
## \hline
## & estrato\_bajo & estrato\_medio & estrato\_moderado & estrato\_alto \\
## \hline
## 1 & Atrato & Tadó & Medio San Juan & Alto Baudó \\
## 2 & El Carmen de Atrato & Unguía & Juradó & Riosucio \\
## \hline
## \end{tabular}
## \end{table}