# Example 1:
# create dataframe and add data with 2(Comp: comp vs. incomp) levels
dat <- createDF(nVP = 50,
nTrl = 1,
design = list("Comp" = c("comp", "incomp")))
dat <- addDataDF(dat, RT = list("Comp comp" = c(500, 100, 100),
"Comp incomp" = c(600, 100, 100)))
tObj <- t.test(dat$RT[dat$Comp == "incomp"],
dat$RT[dat$Comp == "comp"],
paired = TRUE)
statStrT <- statStrT(tObj)
Run the code above in your browser using DataLab