getCP_simon {OneArmPhaseTwoStudy} | R Documentation |
Returns the conditional power when "k" responses where observed out of "numPat" Patients for the given Simon's tow stage design.
getCP_simon(k, numPat, r1, n1, r, n, p1)
k |
number of observed responses |
numPat |
number of enrolled patients. |
r1 |
critical value for the first stage. |
n1 |
sample size for the first stage. |
r |
critical value for the subset endpoint. |
n |
overall sample size. |
p1 |
response rate under the alternative hypothesis. |
#Calculate a Simon's two-stage design design <- getSolutions()$Solutions[3,] #minimax-design for the default values. #Assume 3 out of 20 patients had a response. getCP_simon(3,20,design$r1, design$n1, design$r, design$n, design$p1)