Helper-function for the function getCP
getCP
getP(l, pi0, n2)
l
number of responses
pi0
response probability under the null hypothesis
n2
number of enrolled patients