# NOT RUN {
set.seed(100)
n = 50
p = 100
X = cbind(matrix(rnorm(n * 10, 1, 1), n, 10), matrix(rnorm(n * (p - 10)), n, p - 10))
pValues = apply(X, 2, function(x) t.test(x)$p.value)
farm.fdr(pValues)
# }
Run the code above in your browser using DataLab