# 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)))
DF = rbind(rep(1,n),rep(2,n))
W = rbind(rep(1,n), 1:10)
p.oGFisher(pval, DF, W, M, p.type="two", method="HYB", combine="cct")
# }
Run the code above in your browser using DataLab