nfalse = 50
m = 100
pvals = c (
sort(runif(nfalse, 0, 0.05 / m)),
sort(runif(m - nfalse, 0.1, 1))
)
kFWER_LocalTest (
LocalTest = function (x) min(x) * length(x),
pvals = pvals,
k = 5,
alpha = 0.05,
verbose = FALSE
)
Run the code above in your browser using DataLab