# a vector of p-values with missing elements:
y <- runif(55); y[c(13, 2,5)] <- NA
z1 <- lfdr.bbe1(pvalue = y, monotonic = TRUE)
z2 <- lfdr.bbe1(pvalue = y, robust = TRUE)
z3 <- lfdr.bbe(pvalue = y)
z4 <- rvalue(pvalue = y)
z8 <- lfdr.assumedNull(pvalue=y,plot=0,df=3)
# a statistic vector with missing elements:
y <- runif(55, -1, 5); y[c(13, 2,5)] <- NA
z5 <- lfdr.empiricalNull(stat = y, plot = 0, df = 3)
z6 <- lfdr.assumedNull(stat = y, plot = 0, df = 5)
z7 <- lfdr.elfdr(stat = y, plot = 0, df = 6)
Run the code above in your browser using DataLab