असमान नमूना आकार के साथ आर में एक तरफा ANOVA कैसे करें?

Question

आर सीखने की कोशिश कर रहा है। पुराने आंकड़ों के पाठ से एक प्रश्न यह जानना चाहता है कि विभिन्न निर्माण स्थलों पर ब्रेक टाइम्स में कोई अंतर है या नहीं। समस्या यह है कि पाठ ने फैसला किया कि प्रत्येक साइट एक अलग संख्या में श्रमिकों को रोजगार देती है। इसलिए, मैं अटक गया हूं और असमान नमूना आकार के साथ ANOVA का उपयोग करके सहायता की तलाश में हूं।

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

यह एक

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)))) 
     ) 

डाटा

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 

एनोवा

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

प्रयास करें आउटपुट

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