deprecated/p.adjust.np.R

In byandell/CausalMST: Causal Model Selection Hypothesis Tests

##############################################################################
p.adjust.np <- function(tests, method = "BH")
{
  for(test.name in paste("pvals.np", c("AIC","BIC"), sep = "."))
    for (i in seq(ncol(tests[[test.name]])))
      tests[[test.name]][, i] <- p.adjust(tests[[test.name]][, i], method = method)
    
    tests
    
}