# NOT RUN {
pvalsampler <- function(n){
x <- sample.int(11,size=n,replace=TRUE)-1;
chisq.test(tabulate(x+1,nbins=11),
p=rep(1/11,11))$p.value
}
expect_mc_test(pvalsampler)
# }
Run the code above in your browser using DataLab