uvGsa.res <- as.data.frame (list (N = c (10, 20, 30, 40),
lor = c (1.45, -0.32, 1.89, -1.66),
pval = c (0.001, 0.002, 0.05, 0.06)))
uvGsa.res[,"padj"] <- p.adjust (uvGsa.res$pval, "BY")
uvGsa.res
uvGsa.res[,"pat"] <- uvPat (uvGsa.res)
uvGsa.res
Run the code above in your browser using DataLab