Differences

This shows you the differences between two versions of the page.

--- r:repeated_measures_anova [2020/06/03 15:51] – hkimscil
+++ r:repeated_measures_anova [2020/06/03 15:53] (current) – [e.g. 4] hkimscil
@@ Line 249: / Line 249: @@
 Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
 >
+</code>
+====== e.g. 4 ======
+<code>
+demo4 <- read.csv("https://stats.idre.ucla.edu/stat/data/demo4.csv")
+## Convert variables to factor
+demo4 <- within(demo4, {
+  group <- factor(group)
+  time <- factor(time)
+  id <- factor(id)
+})
+demo4
+par(cex = .6)
+with(demo4, interaction.plot(time, group, pulse,
+  ylim = c(10, 60), lty = c(1, 12), lwd = 3,
+  ylab = "mean of pulse", xlab = "time", trace.label = "group"))
+demo4.aov <- aov(pulse ~ group * time + Error(id), data = demo4)
+summary(demo4.aov)
+</code>
+{{:r:pasted:20200604-005331.png}}
+<code>
+>
+> demo4 <- read.csv("https://stats.idre.ucla.edu/stat/data/demo4.csv")
+> ## Convert variables to factor
+> demo4 <- within(demo4, {
++     group <- factor(group)
++     time <- factor(time)
++     id <- factor(id)
++ })
+>
+> demo4
+   id group pulse time
+   1     1    35    1
+   1     1    25    2
+   1     1    12    3
+   2     1    34    1
+   2     1    22    2
+   2     1    13    3
+   3     1    36    1
+   3     1    21    2
+   3     1    18    3
+  4     1    35    1
+  4     1    23    2
+  4     1    15    3
+  5     2    31    1
+  5     2    43    2
+  5     2    57    3
+  6     2    35    1
+  6     2    46    2
+  6     2    58    3
+  7     2    37    1
+  7     2    48    2
+  7     2    51    3
+  8     2    32    1
+  8     2    45    2
+  8     2    53    3
+>
+> par(cex = .6)
+>
+> with(demo4, interaction.plot(time, group, pulse,
++                              ylim = c(10, 60), lty = c(1, 12), lwd = 3,
++                              ylab = "mean of pulse", xlab = "time", trace.label = "group"))
+>
+> demo4.aov <- aov(pulse ~ group * time + Error(id), data = demo4)
+> summary(demo4.aov)
+Error: id
+          Df Sum Sq Mean Sq F value   Pr(>F)
+group      1 2542.0    2542     629 2.65e-07 ***
+Residuals  6   24.3       4
+---
+Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
+Error: Within
+           Df Sum Sq Mean Sq F value   Pr(>F)
+time        2      1     0.5   0.079    0.925
+group:time  2   1736   868.2 137.079 5.44e-09 ***
+Residuals  12     76     6.3
+---
+Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
+>
 </code>