Differences

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

--- twoway_repeated_measure_anova [2022/05/10 10:10] – hkimscil
+++ twoway_repeated_measure_anova [2022/10/04 08:57] – hkimscil
@@ Line 2: / Line 2: @@
 <code>
-acme <- read.csv("http://commres.net/wiki/_media/r/10_rmanova.csv")
-str(acme)
+acne <- read.csv("http://commres.net/wiki/_media/r/10_rmanova.csv")
+str(acne)
+acne
+# install.packages("reshape")
+library(reshape)
+acne.re <- reshape(acne, direction="long", varying=3:6, sep="")
+str(acne.re)
+acne.re$group <- factor(acne.re$group)
+acne.re$id <- factor(acne.re$id)
+acne.re$time <- factor(acne.re$time)
+str(acne.re)
+acne.re
+attach(acne.re)
+acne.re.anova <- aov(month~group*time+Error(id/time), data=acne.re)
+summary(acne.re.anova)
+interaction.plot(acne.re$time, acne.re$group, acne.re$month)
 </code>
+{{:pasted:20220510-102845.png}}