# NOT RUN {
data("fhch2010")
str(fhch2010)
a1 <- aov_ez("id", "log_rt", fhch2010, between = "task",
within = c("density", "frequency", "length", "stimulus"))
nice(a1)
if (requireNamespace("emmeans")) {
emmeans::emmip(a1, frequency~length|task+stimulus)
emmeans::emmip(a1, frequency~density|task+stimulus)
}
# }
# NOT RUN {
a2 <- aov_ez("id", "rt", fhch2010, between = "task",
within = c("density", "frequency", "length", "stimulus"))
nice(a2)
if (requireNamespace("emmeans")) {
emmeans::emmip(a2, frequency~length|task+stimulus)
emmeans::emmip(a2, frequency~density|task+stimulus)
}
# }
Run the code above in your browser using DataLab