Description Usage Arguments See Also Examples

Calculates the number of responses needed for the second stage of a Simon's two-stage design if the flexible extension is chosen in the planning phase.

1 | ```
get_r2_flex(ce, p0, n2)
``` |

`ce` |
conditional error for the second stage. |

`p0` |
probability for a response under the null hypothesis. |

`n2` |
sample size for the second stage. |

`getD_proportionally`

, `getD_equally`

, `getD_distributeToOne`

, `getD_none`

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | ```
#Calculate a Simon's two-stage design
design <- getSolutions()$Solutions[3,] #minimax-design for the default values.
#Get the conditional error values using proportionally "rest"-alpha spending.
ce_df <- getD_proportionally(design, 0.05)
#Assume 5 responses were observed in the interim analysis.
ce <- ce_df[5+1,]$ce # conditional error for 5 responses is listed in the 6th row of "ce_df"
#Calculate the number of patients needed in the second stage.
n2 <- design$n - design$n1
r2 <- get_r2_flex(ce, design$p0, n2)
r2
#Assume 10 patients more should be recruited in the second stage.
#(This changes the number of needed responses.)
n2 <- n2 + 10
r2 <- get_r2_flex(ce, design$p0, n2)
r2
``` |

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.