r:oneway_anova
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revisionLast revisionBoth sides next revision | ||
r:oneway_anova [2020/10/12 16:27] – hkimscil | r:oneway_anova [2020/10/12 16:36] – hkimscil | ||
---|---|---|---|
Line 1: | Line 1: | ||
====== Oneway ANOVA ====== | ====== Oneway ANOVA ====== | ||
+ | ===== data ===== | ||
| (온도조건)x1 | | (온도조건)x1 | ||
| (온도조건)x2 | | (온도조건)x2 | ||
Line 160: | Line 161: | ||
30 46.2 hi | 30 46.2 hi | ||
</ | </ | ||
+ | ===== ANOVA by hand ===== | ||
< | < | ||
mean.by.group.xs <- tapply(xs$score, | mean.by.group.xs <- tapply(xs$score, | ||
Line 217: | Line 218: | ||
ss.between + ss.within | ss.between + ss.within | ||
+ | ms.between <- ss.between/ | ||
+ | ms.within <- ss.within/ | ||
+ | ms.total <- ss.total/ | ||
+ | |||
+ | ms.total | ||
+ | ms.between | ||
+ | ms.within | ||
+ | |||
+ | f.calculated <- ms.between/ | ||
+ | f.calculated | ||
+ | var(xs$score) | ||
</ | </ | ||
+ | |||
< | < | ||
Line 249: | Line 262: | ||
> ss.between + ss.within | > ss.between + ss.within | ||
[1] 175.695 | [1] 175.695 | ||
+ | > | ||
+ | > ms.between <- ss.between/ | ||
+ | > ms.within <- ss.within/ | ||
+ | > ms.total <- ss.total/ | ||
+ | > | ||
+ | > ms.total | ||
+ | [1] 6.058448 | ||
+ | > ms.between | ||
+ | [1] 78.151 | ||
+ | > ms.within | ||
+ | [1] 0.7182593 | ||
+ | > | ||
+ | > f.calculated <- ms.between/ | ||
+ | > f.calculated | ||
+ | [1] 108.8061 | ||
+ | > var(xs$score) | ||
+ | [1] 6.058448 | ||
> | > | ||
</ | </ | ||
+ | ===== ANOVA function (aov) ===== | ||
< | < | ||
Line 293: | Line 324: | ||
> </ | > </ | ||
- | |||
- | < | ||
- | | ||
- | 51.46 46.94 46.35 </ | ||
- | |||
- | |||
- | SS< | ||
- | < | ||
- | > mx1 <- mean(x1) | ||
- | > mx2 <- mean(x2) | ||
- | > mx3 <- mean(x3) | ||
- | |||
- | > x2ss <- 10*((meanxs - mx2)^2) | ||
- | > x3ss <- 10*((meanxs - mx3)^2) | ||
- | > x1ss <- 10*((meanxs - mx1)^2) | ||
- | > xss <- x1ss+x2ss+x3ss | ||
- | > xss | ||
- | [1] 156.302 | ||
- | </ | ||
- | |||
====== E.g. 1 ====== | ====== E.g. 1 ====== |
r/oneway_anova.txt · Last modified: 2022/04/28 10:26 by hkimscil