# Example 1:
# create dataframe with 3(Comp: neutral vs. comp vs. incomp) factors/levels
dat <- createDF(nVP = 20, nTrl = 1,
design = list("Comp" = c("neutral", "comp", "incomp")))
dat <- addDataDF(dat,
RT = list("Comp neutral" = c(510, 150, 100),
"Comp comp" = c(500, 150, 100),
"Comp incomp" = c(520, 150, 100)))
# using ezANOVA
library(ez)
aovRT <- ezANOVA(dat, dv=.(RT), wid = .(VP), within = .(Comp),
return_aov = TRUE, detailed = TRUE)
aovDispTable(aovRT)
aovRT <- aovSphericityAdjustment(aovRT)
aovDispTable(aovRT)
Run the code above in your browser using DataLab