# NOT RUN {
d <- data.frame(x=c(1,2,3,4,5,6,7,7),
y=c(1,1,2,2,3,3,4,4))
render(wrapTTest(d$x, d$y), pLargeCutoff=1)
# confirm p not order depedent
render(wrapTTest(d$y, d$x),pLargeCutoff=1)
# }
Run the code above in your browser using DataLab