set.seed(837)
p <- 200
n <- 100
d <- 2
X <- matrix(
runif(p * n),
ncol = p
)
Y <- matrix(
runif(d * n),
ncol = d
)
mapit <- mvmapit(
t(X),
t(Y),
test = "normal", cores = 1, logLevel = "INFO"
)
fisher <- fishers_combined(mapit$pvalues)
Run the code above in your browser using DataLab