## Assume these are one-sided p-value generated by non-NOISeq method (e.g., cufflinks)
upper <- matrix(runif(300), ncol=3, nrow=100)
lower <- 1 - upper
rownames(upper) <- paste0("Gene", 1:100)
rownames(lower) <- paste0("Gene", 1:100)
weight <- c(3,6,8)
# other.oneside.pvalues function return a matrix which can input Fisher.test or Stouffer.test
result <- other.oneside.pvalues(upper, lower, weight)
# Fisher's method (without weighting)
F <- Fisher.test(result)
str(F)
# Stouffer's method (with weighting by sample-size)
S <- Stouffer.test(result)
str(S)
Run the code above in your browser using DataLab