powered by
piUpper(fb)
bumOptim
fitBumModel
data(pvaluesExample) pvals <- pvaluesExample[,1] bum <- bumOptim(pvals, starts=10) piUpper(fb=bum)
Run the code above in your browser using DataLab