En el estudio anterior, ¿qué tamaño deberían tener las muestras aleatorias de mujeres y hombres (manteniendo la proporción del ejemplo) para conseguir un poder de 0,85 con 99 % de confianza?
alpha <- 0.01 # Nivel de significancia (99 % de confianza)
power <- 0.85 # Poder de la prueba deseado
p_mujeres <- 38 / 100
p_hombres <- 102 / 200
n_mujeres <- pwr.2p.test(h = p_mujeres, n = NULL, sig.level = alpha, power = power, alternative = "two.sided")$n
n_mujeres
## [1] 180.7263
n_hombres <- n_mujeres * 2
n_hombres
## [1] 361.4527
Para este ejercicio, se utilizó \(pwr.2p.test\), porque se busca calcular el tamaño de muestra necesario para una prueba de dos proporciones, donde se está comparando las proporciones de mujeres y hombres que presentan síntomas de resfriado.