R/getProd.R

# Product (p.values for test is the same as Fisher's test)
getProd <- function (x) {  # Compute product statistic
  return(exp(rowSums(log(x))))
}
AEBilgrau/metaHD documentation built on May 5, 2019, 11:29 a.m.