CBUM(p, start.pi0=0.5, thresh.censor=0.05, eps=1e-5, niter=Inf, verbose=FALSE)isTRUE(lambda, this is equivalent to the BUM method of Pounds and MOrris (2003). match.call() result.thresh.censor; NULL, otherwise CBpi0 function available at http://home.gwu.edu/~ylai/research/CBpi0/CBpi0.txt, which
implements the censored (1-paramater beta)-uniform mixture model to a large number of p-values.qvalue, histf1set.seed(9992722)
p=c(runif(7000), rbeta(3000, .8, 2.2))
CBUM(p, eps=1e-5)Run the code above in your browser using DataLab