## Simulate p-values; 10 from false hypotheses, 10 from true
pvals = sort(c(
rbeta(10, 1, 20), # Mean value of .1
runif(10)
))
## Test whether the highest 10 contain any false hypotheses using a Bonferroni test
TestSet_LocalTest(function(x) {
min(c(1, length(x) * min(x)))
}, pvals, subset = 11:20)
Run the code above in your browser using DataLab