pvalRIP <- runif(100)
pvalCTL <- runif(100)
eFDR <- empiricalFDR(pvalRIP[1], pvalRIP, pvalCTL)
pvalRIP[1]
eFDR
# more significant pval
pvalRIP[1] <- 1e-4
eFDR <- empiricalFDR(pvalRIP[1], pvalRIP, pvalCTL)
pvalRIP[1]
eFDR
Run the code above in your browser using DataLab