Description Usage Arguments References Examples

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

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

`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). |

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

1 2 3 4 5 6 7 | ```
#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)
``` |

```
Loading required package: Rcpp
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.