twoway_repeated_measure_anova
Differences
This shows you the differences between two versions of the page.
Next revision | Previous revisionNext revisionBoth sides next revision | ||
twoway_repeated_measure_anova [2022/05/10 10:08] – created hkimscil | twoway_repeated_measure_anova [2022/10/04 08:57] – hkimscil | ||
---|---|---|---|
Line 1: | Line 1: | ||
{{: | {{: | ||
+ | |||
+ | < | ||
+ | |||
+ | acne <- read.csv(" | ||
+ | str(acne) | ||
+ | acne | ||
+ | |||
+ | # install.packages(" | ||
+ | library(reshape) | ||
+ | |||
+ | acne.re <- reshape(acne, | ||
+ | |||
+ | 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/ | ||
+ | summary(acne.re.anova) | ||
+ | |||
+ | interaction.plot(acne.re$time, | ||
+ | |||
+ | </ | ||
+ | |||
+ | {{: |