Esempio n. 1
0
    def getFDRCorrection(pvals):
        rcode = """
            fdr <- function(pvals) {
                return(p.adjust(pvals, method = "fdr"))
            }
            """
        rStats = SignatureTranslatedAnonymousPackage(rcode, "rStats")

        pvals_r = robjects.FloatVector(pvals)
        return rStats.fdr(pvals_r)