This is your work, valued
graphPAF. R
clinical-trial-power. code to calculate posterior probabilites, given a particular p-value