# Example 1:
# create dataframe and add data
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)
tString <- meanStrT(tObj, numDigits = 0, unit = "ms")
Run the code above in your browser using DataLab