OneArmPhaseTwoStudy (version 1.0.3)

get_CI: Calculates the confidence interval.

Description

Calculates the two sided 1-2*alpha confidence interval based on the work from Koyama and Chen.

Usage

get_CI(k, r1, n1, n, alpha = 0.05, precision = 4)

Arguments

k

overall observed responses (must be larger than r1).

r1

critical value for the first stage.

n1

sample size for the first stage.

n

overall sample size.

alpha

determining the two sided 1-2*alpha confidence interval.

precision

gives the precision (in decimal numbers) to which the confidence interval should be calculated (should be less than 10).

References

Koyama T and Chen H (2008): Proper inference from Simon's two-stage designs. Statistics in Medicine, 27(16):3145-3154.

Examples

# NOT RUN {
#Calculate a Simon's two-stage design
design <- getSolutions()$Solutions[3,] #minimax-design for the default values.

#Assume 9 responses were observed in the whole trial.
k = 9

ci <- get_CI(k, design$r1, design$n1, design$n)
# }