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:33] – 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 280: | Line 281: | ||
| > | > | ||
| </ | </ | ||
| + | ===== ANOVA function (aov) ===== | ||
| < | < | ||
| Line 322: | 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