# NOT RUN {
data("ks2013.3")
# replicate results reported in Klauer & Singmann (2013, p. 1270)
aov_ez("id", "response", ks2013.3, between = "condition",
within = c("believability", "validity"))
aov_ez("id", "response", subset(ks2013.3, condition == "fixed"),
within = c("believability", "validity"))
aov_ez("id", "response", subset(ks2013.3, condition == "random"),
within = c("believability", "validity"))
# }
Run the code above in your browser using DataLab