data(simzmat)
# the generation code:
require(repfdr)
H <- hconfigs(n.studies= 3, n.association.status=2)
# frequencies for the association status vectors:
f <- c(0.895,0.005,0.005,0.02,0.005,0.02,0.02,0.03)
cbind(H,f) # the simulation design
sum(f) # all sum to 1?
m = 10000 # 10000 tests in each study
# true states:
Hmat <- matrix(rep(x = H, times = m*cbind(f,f,f)),ncol=3)
# simulated z-scores:
set.seed(12)
simzmat <- matrix(rnorm(n=3*m,mean=Hmat*3),nrow=m,ncol=3)
rm(f,m,H)
Run the code above in your browser using DataLab