Differences

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

--- twoway_repeated_measure_anova [2022/10/04 08:57] – hkimscil
+++ twoway_repeated_measure_anova [2024/05/08 08:33] (current) – removed hkimscil
@@ Line 1: / Line 1: @@
-{{:r:10_rmanova.csv}}
-<code>
-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}}