Tamaño muestral para Argentina INTA

# 1. Definimos los Parámetros
Z <- 1.96  # Valor de Z para un nivel de confianza del 95%
sigma <- 2.5  # Desviación estándar de la población
N <- 300  # Tamaño de la población total
E <- 1.0    # Margen de error tolerado

# 2. Calculamos el tamaño muestral
n_med_AI <- (Z^2 * sigma^2 * N) / ((N - 1) * E^2 + Z^2 * sigma^2)
n_med_AI <- ceiling(n_med_AI)  # Redondear hacia arriba
n_med_AI
## [1] 23

Tamaño muestral para Yaco Tula INTA

# 1. Definimos los Parámetros
Z <- 1.96  # Valor de Z para un nivel de confianza del 95%
sigma <- 2.5  # Desviación estándar de la población
N <- 300  # Tamaño de la población total
E <- 1.0    # Margen de error tolerado

# 2. Calculamos el tamaño muestral
n_med_YTI <- (Z^2 * sigma^2 * N) / ((N - 1) * E^2 + Z^2 * sigma^2)
n_med_YTI <- ceiling(n_med_YTI)  # Redondear hacia arriba
n_med_YTI
## [1] 23

Muestreo Aleatorio simple para Argentina INTA

# MAS sin reemplazo
Argentina_INTA <- 1:300 #tamaño de población de Argentina INTA

MAS_Argentina_INTA <- sample(Argentina_INTA, size = 23, replace = FALSE) #size = 23 indica que se seleccionarán 23 elementos y replace = FALSE indica que se selecciona sin reemplazo.

MAS_Argentina_INTA
##  [1] 197 227 232 125  17  51 173  28 276  64 224 299 179  89  40 140 193 202  55
## [20]  39  36  30  44
# Ordenamos la muestra de 23 elementos en cada lote de menor a mayor con la función "sort()"
MAS_ARG_ORD_23 <- sort(MAS_Argentina_INTA)
MAS_ARG_ORD_23
##  [1]  17  28  30  36  39  40  44  51  55  64  89 125 140 173 179 193 197 202 224
## [20] 227 232 276 299

Muestreo Aleatorio simple para Yaco Tula INTA

# MAS sin reemplazo
Yaco_Tula_INTA <- 1:300 #tamaño de población de Argentina INTA

MAS_Yaco_Tula_INTA <- sample(Yaco_Tula_INTA, size = 23, replace = FALSE) #size = 23 indica que se seleccionarán 23 elementos y replace = FALSE indica que se selecciona sin reemplazo.

MAS_Yaco_Tula_INTA
##  [1] 146 167 104  16  76  48  78 160 225  24  26 214 228 284  99 258 119 129 183
## [20] 144 217 239 234
# Ordenamos la muestra de 23 elementos en cada lote de menor a mayor con la función "sort()"
MAS_YTI_ORD_23 <- sort(MAS_Yaco_Tula_INTA)
MAS_YTI_ORD_23
##  [1]  16  24  26  48  76  78  99 104 119 129 144 146 160 167 183 214 217 225 228
## [20] 234 239 258 284