# a statistic vector with missing elements
ss <- runif(55,-1,5) ;ss[c(13,2,5)]<-NA
# a p-values vector with missing elements
pp <- runif(55) ;pp[c(13,2,5)]<-NA
z1 <- lfdr.elfdr(stat = ss, df = 3)
z2 <- lfdr.elfdr(pvalue = pp, df = 3)
Run the code above in your browser using DataLab