r:oneway_anova
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
r:oneway_anova [2020/10/12 16:33] – hkimscil | r:oneway_anova [2022/04/28 10:26] (current) – [data] hkimscil | ||
---|---|---|---|
Line 1: | Line 1: | ||
====== Oneway ANOVA ====== | ====== Oneway ANOVA ====== | ||
+ | ===== data ===== | ||
+ | see https:// | ||
+ | |||
| (온도조건)x1 | | (온도조건)x1 | ||
| (온도조건)x2 | | (온도조건)x2 | ||
Line 160: | Line 163: | ||
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 280: | Line 283: | ||
> | > | ||
</ | </ | ||
+ | ===== ANOVA function (aov) ===== | ||
< | < | ||
Line 322: | Line 326: | ||
> </ | > </ | ||
- | |||
- | < | ||
- | | ||
- | 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.1602488024.txt.gz · Last modified: 2020/10/12 16:33 by hkimscil