# create dataframe
dat <- createDF(nVP = 6, nTrl = 1,
design = list("Comp" = c("comp", "incomp")))
dat <- addDataDF(dat, RT = list("Comp comp" = c(500, 150, 100),
"Comp incomp" = c(520, 150, 100)))
aovObj <- aov(RT ~ Comp + Error(VP/(Comp)), dat)
aovObj <- aovTable(aovObj)
aovObj$ANOVA
printTable(aovObj$ANOVA)
Run the code above in your browser using DataLab