Wie mache ich mit ungleiche Stichprobengrößen Einweg-ANOVA in R?

Question

Der Versuch, R. zu lernen. Eine Frage aus einem alten Statistiktext möchte wissen, ob es einen Unterschied in den Pausenzeiten an verschiedenen Baustellen gibt. Das Problem ist, dass der Text entschieden hat, dass jede Website eine andere Anzahl von Arbeitnehmern verwendet. Ich bin also festgefahren und suche Hilfe mithilfe von ANOVA mit ungleichen Stichprobengrößen.

site1 <- c(34,25,27,31,26,34,21)
site2 <- c(33,35,31,31,42,33)
site3 <- c(17,30,30,26,32,28,26,29)
site4 <- c(28,33,31,27,32,33,40)

Answer 1

Probier diese

site1 <- c(34,25,27,31,26,34,21)
site2 <- c(33,35,31,31,42,33)
site3 <- c(17,30,30,26,32,28,26,29)
site4 <- c(28,33,31,27,32,33,40)

Data <- data.frame(
       Y=c(site1, site2, site3, site4),
       Site =factor(rep(c("site1", "site2", "site3", "site4"), times=c(length(site1), length(site2), length(site3), length(site4))))
       )

Daten

  Y  Site
 34 site1
 25 site1
 27 site1
 31 site1
 26 site1
 34 site1
 21 site1
 33 site2
 35 site2
 31 site2
 31 site2
 42 site2
 33 site2
 17 site3
 30 site3
 30 site3
 26 site3
 32 site3
 28 site3
 26 site3
 29 site3
 28 site4
 33 site4
 31 site4
 27 site4
 32 site4
 33 site4
 40 site4

Anova

fm1 <- aov(Y~Site, data=Data)
anova(fm1)

Ausgabe

Analysis of Variance Table

Response: Y
          Df Sum Sq Mean Sq F value  Pr(>F)  
Site       3 212.35  70.782  3.4971 0.03098 *
Residuals 24 485.76  20.240                  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1