Displaying 2 results from an estimated 2 matches for "bgaov".
2009 Sep 09
1
Stats help with calculating between and within subject variance and confidence intervals
...a better
way to do this.
Thanks
Paul.
> BGBottles
Machine weight
1 1 14.23
2 1 14.96
3 1 14.85
4 2 16.46
5 2 16.74
6 2 15.94
7 3 14.98
8 3 14.88
9 3 14.87
10 4 15.94
11 4 16.07
12 4 14.91
> BGaov<-aov(weight~Machine,data=BGBottles)
> summary(BGaov)
Df Sum Sq Mean Sq F value Pr(>F)
Machine 3 5.3294 1.7765 9.7702 0.004733 **
Residuals 8 1.4546 0.1818
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '....
2009 Sep 14
1
Best way to extract values from an aov object ?
...;1",
"2", "3", "4"), class = "factor"), Weight = c(14.23, 14.96, 14.85,
16.46, 16.74, 15.94, 14.98, 14.88, 14.87, 15.94, 16.07, 14.91
)), .Names = c("Machine", "Weight"), row.names = c(NA, 12L), class =
"data.frame")
> bgaov<-aov(Weight~Machine+Error(Machine),data=BGBottles)
> str(summary(bgaov))
List of 2
$ Error: Machine:List of 1
..$ :Classes ?anova? and 'data.frame': 1 obs. of 3 variables:
.. ..$ Df : num 3
.. ..$ Sum Sq : num 5.33
.. ..$ Mean Sq: num 1.78
..- attr(*, "class")= chr [1:2] &q...