Muestra_EstudioEHNA

# Instalar y cargar el paquete pwr si no está instalado
if (!require(pwr)) {
  install.packages("pwr")
  library(pwr)}

## Loading required package: pwr

# Definir los parámetros para el cálculo del tamaño de muestra
nivel_significancia <- 0.05
potencia <- 0.90
tamaño_efecto <- 0.2

# Calcular el tamaño de muestra utilizando la función pwr.r.test
resultado <- pwr.r.test(r = tamaño_efecto, sig.level = nivel_significancia, power = potencia, alternative = "two.sided"); resultado

## 
##      approximate correlation power calculation (arctangh transformation) 
## 
##               n = 257.756
##               r = 0.2
##       sig.level = 0.05
##           power = 0.9
##     alternative = two.sided