OneArmPhaseTwoStudy (version 1.0.3)

getCP_simon: Returns the conditional power.

Description

Returns the conditional power when "k" responses where observed out of "numPat" Patients for the given Simon's tow stage design.

Usage

getCP_simon(k, numPat, r1, n1, r, n, p1)

Arguments

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.

Examples

# NOT RUN {
#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)
# }