# NOT RUN {
set.seed(123)
n = 10
M = matrix(0.3, n, n) + diag(0.7, n, n)
zscore = matrix(rnorm(n),nrow=1)%*%chol(M)
pval = 2*(1-pnorm(abs(zscore)))
gf1 = stat.GFisher(pval, df=2, w=1)
gf2 = stat.GFisher(pval, df=1:n, w=1:n)
p.GFisher(gf1, df=2, w=1, M=M, method="HYB")
# }
# NOT RUN {
p.GFisher(gf1, df=2, w=1, M=M, method="MR", nsim=5e4)
# }
# NOT RUN {
p.GFisher(gf2, df=1:n, w=1:n, M=M, method="HYB")
# }
# NOT RUN {
p.GFisher(gf2, df=1:n, w=1:n, M=M, method="MR", nsim=5e4)
# }
Run the code above in your browser using DataLab