set.seed(123)
datos <- data.frame(
grupo = rep(c("A", "B", "C", "D"), each = 10),
medida = c(
rnorm(10, mean = 10),
rnorm(10, mean = 12),
rnorm(10, mean = 15),
rnorm(10, mean = 11)
)
)
table(datos$grupo)
#> A B C D
#>10 10 10 10
# Aplicar el test de Nemenyi
resultado <- NemenyiTest(medida ~ grupo, data = datos)
# Ver los resultados
summary(resultado)
# O simplemente
resultado$Resultados
# Ver orden de medias (rangos)
resultado$Orden_Medias
Run the code above in your browser using DataLab