# a p-values vector with missing elements
pp <- runif(15) ;pp[c(13,2,5)]<-NA
z1 <-rvalue(pvalue = pp, robust = TRUE)
z2 <-rvalue(pvalue = pp, pi0.method="bootstrap")
z3<- nqvalue(pvalue = pp, robust = TRUE)
z4<- nqvalue(pvalue = pp, pi0.method = "bootstrap")
Run the code above in your browser using DataLab