Description Usage Arguments Examples

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

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

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

```
sh: 1: cannot create /dev/null: Permission denied
Loading required package: Rcpp
[1] 0.8016185
```

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.