# NOT RUN {
#get p-values
data(LFQRatio25)
p=LFQRatio25[,7]
#Plot straight lines whose slopes correspond to different estimates of 
#the proportion of true null hypotheses
r=calibration.plot(p, pi0.method="ALL")
r$pi0
 
#Plot of the graph with the "pounds" method (default)
r=calibration.plot(p)
#Estimate of the proportion of true null hypotheses
r$pi0
#Estimate of the differentially abundant protein concentration 
#(the closer to one, the better)
r$h1.concentration
#Estimate of the "uniformity underestimation" quantity 
#(If null, pi0 is not underestimated.)
r$unif.under
#Plot of the graph using the "slim" method
r=calibration.plot(p, pi0.method="slim")
# }
Run the code above in your browser using DataLab