Uji Anova Satu Arah

Persiapan Data

grup <- c("A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
          "B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "B",
          "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C")

nilai <- c(9, 12, 4, 5, 9, 12, 7, 7, 8, 5, 12, 10,
           17, 8, 6, 16, 9, 17, 14, 18, 17, 3, 13, 13,
           13, 12, 7, 5, 13, 12, 5, 14, 12, 10, 7, 9)
data <- data.frame(grup, nilai)

Uji Anova

anova <- aov(nilai ~ grup, data = data)
summary(anova)