Differences

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

--- factorial_anova [2019/02/20 21:45] – hkimscil
+++ factorial_anova [2020/05/28 22:47] – [예] hkimscil
@@ Line 371: / Line 371: @@
 <code>> cookies <- read.csv("http://commres.net/wiki/_media/cookies.csv")
-> cookies
+cookies
-> str(cookies)
+str(cookies)
 </code>
-<code>> cookies$weight <- factor(cookies$weight)
+<code>
-> cookies$fullness <- factor(cookies$fullness)
+cookies$weight = factor(cookies$weight, levels=c(1,2), labels=c("normal","obese"))
+cookies$fullness = factor(cookies$fullness, levels=c(1,2), labels=c("empty","full"))
+with(cookies, interaction.plot(x.factor=fullness, trace.factor=weight, response=ncookies, fun=mean, type="b", legend=T, ylab="num of cookies", main="Interaction Plot", pch=c(1,19)))
 </code>
 <code>
-> attach(cookies)
+attach(cookies)
-> cookies.aov <- aov(ncookies ~ weight * fullness, data=cookies)
+cookies.aov <- aov(ncookies ~ weight * fullness, data=cookies)
+summary(cookies.aov)
 </code>
 <code>
-> summary(cookies.aov)
+summary(cookies.aov)
                 Df Sum Sq Mean Sq F value Pr(>F)