factorial_anova
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
factorial_anova [2020/10/12 17:32] – [예] hkimscil | factorial_anova [2024/05/01 08:36] (current) – [Materials and links] hkimscil | ||
---|---|---|---|
Line 290: | Line 290: | ||
< | < | ||
- | de <- read.csv(" | + | de <- read.csv(" |
de | de | ||
Line 309: | Line 309: | ||
</ | </ | ||
- | {{:pasted:20200529-165842.png}} | + | < |
+ | > de <- read.csv(" | ||
+ | > de | ||
+ | type w.temp cleanness | ||
+ | 1 | ||
+ | 2 | ||
+ | 3 | ||
+ | 4 | ||
+ | 5 | ||
+ | 6 | ||
+ | 7 | ||
+ | 8 | ||
+ | 9 | ||
+ | 10 1 2 9 | ||
+ | 11 1 2 8 | ||
+ | 12 1 2 10 | ||
+ | 13 2 2 13 | ||
+ | 14 2 2 15 | ||
+ | 15 2 2 12 | ||
+ | 16 2 2 12 | ||
+ | 17 1 3 10 | ||
+ | 18 1 3 12 | ||
+ | 19 1 3 11 | ||
+ | 20 1 3 9 | ||
+ | 21 2 3 12 | ||
+ | 22 2 3 13 | ||
+ | 23 2 3 10 | ||
+ | 24 2 3 13 | ||
+ | > de$type <- factor(de$type, | ||
+ | > de$w.temp <- factor(de$w.temp, | ||
+ | > de | ||
+ | type w.temp cleanness | ||
+ | 1 super | ||
+ | 2 super | ||
+ | 3 super | ||
+ | 4 super | ||
+ | 5 | ||
+ | 6 | ||
+ | 7 | ||
+ | 8 | ||
+ | 9 super | ||
+ | 10 super | ||
+ | 11 super | ||
+ | 12 super | ||
+ | 13 best | ||
+ | 14 best | ||
+ | 15 best | ||
+ | 16 best | ||
+ | 17 super hot 10 | ||
+ | 18 super hot 12 | ||
+ | 19 super hot 11 | ||
+ | 20 super hot 9 | ||
+ | 21 best hot 12 | ||
+ | 22 best hot 13 | ||
+ | 23 best hot 10 | ||
+ | 24 best hot 13 | ||
+ | > de.anova <- aov(cleanness ~ type * w.temp, data=de) | ||
+ | > summary(de.anova) | ||
+ | Df Sum Sq Mean Sq F value | ||
+ | type | ||
+ | w.temp | ||
+ | type: | ||
+ | Residuals | ||
+ | --- | ||
+ | Signif. codes: | ||
+ | > | ||
+ | > with(de, interaction.plot(x.factor=type, | ||
+ | + | ||
+ | + | ||
+ | + | ||
+ | + | ||
+ | > | ||
+ | > | ||
+ | </ | ||
+ | {{:pasted:20240429-083635.png}} | ||
+ | |||
+ | 만약에 손으로 계산했다면 R에서 | ||
+ | < | ||
+ | pf(15.43, 1, 18, lower.tail=F) | ||
+ | pf(62.04, 2, 18, lower.tail=F) | ||
+ | pf(6.75, 2, 18, lower.tail=F) | ||
+ | |||
+ | |||
+ | </ | ||
+ | < | ||
+ | > pf(15.43, 1, 18, lower.tail=F) | ||
+ | [1] 0.000985713 | ||
+ | > pf(62.04, 2, 18, lower.tail=F) | ||
+ | [1] 8.40729e-09 | ||
+ | > pf(6.75, 2, 18, lower.tail=F) | ||
+ | [1] 0.006496173 | ||
+ | > | ||
+ | > </ | ||
- | ===== 예 ===== | + | ===== 예 2. cookie experiment |
* {{: | * {{: | ||
Line 371: | Line 463: | ||
* $SS_A$ | * $SS_A$ | ||
* $SS_B$ | * $SS_B$ | ||
- | * $SS_{AxB}$ | + | * $SS_{\text{AxB}}$ |
MS | MS | ||
* $MS_{A}$ | * $MS_{A}$ | ||
* $MS_{B}$ | * $MS_{B}$ | ||
- | * $MS_{AxB}$ | + | * $MS_{\text{AxB}}$ |
* $MS_{Within}$ | * $MS_{Within}$ | ||
F-ratio | F-ratio | ||
* $F_{A}$ | * $F_{A}$ | ||
* $F_{B}$ | * $F_{B}$ | ||
- | * $F_{AxB}$ | + | * $F_{\text{AxB}}$ |
Tests of Between-Subjects Effects | Tests of Between-Subjects Effects | ||
Line 395: | Line 487: | ||
| a R Squared = .102 (Adjusted R Squared = .066) |||||| | | a R Squared = .102 (Adjusted R Squared = .066) |||||| | ||
+ | 데이터 파일 | ||
+ | {{: | ||
+ | 손으로 계산하기 | ||
+ | {{: | ||
- | {{http:// | ||
< | < | ||
cookies <- read.csv(" | cookies <- read.csv(" | ||
Line 664: | Line 759: | ||
====== Materials and links ====== | ====== Materials and links ====== | ||
* {{: | * {{: | ||
- | * http:// | ||
- | * http:// | ||
- | * http:// | ||
- | * http:// | ||
- | * http:// | ||
- | * http:// | ||
- | {{tag>factorial anova, | + | {{tag>factorial_anova |
factorial_anova.1602491553.txt.gz · Last modified: 2020/10/12 17:32 by hkimscil