FutRuleExample2 | R Documentation |

Consider a Phase II or Phase III trial with three treatment arms that correspond to two doses of an experimental treatment versus a control and assume that the primary efficacy endpoint is a binary endpoint (response rate, i.e., a higher value indicates a more favorable outcome). A futility assessment will be performed for each treatment arm at an interim look using conditional power and a treatment arm will be dropped if conditional power is below a pre-defined futility threshold. An optimal value of the futility threshold can be found by computing the sensitivity and specificity rates associated with the futility stopping rule and then identifying the threshold that simultaneously maximizes both rates.

The following design parameters will be assumed in the trial:

A balanced design with 75 enrolled patients per trial arm will be utilized.

The patient dropout rate at the end of the treatment period is assumed to be 5%.

An early interim analysis with the information fraction of 30% will be conducted.

The calculations will be performed under the following set of treatment effect assumptions:

The control response rate is set to 35%.

The response rates in the three treatment arms are set to 45%, 50% and 55%.

Operating characteristics of the futility stopping rule (sensitivity and specificity rates) and an optimal futility threshold will be computed using the `FutRule`

function based on 1,000 simulation runs. A list of all trial design parameters (`parameters`

) needs to be set up as shown below and passed to this function. A detailed simulation report can be generated using the `GenerateReport`

function and a graphical user interface can be launched by calling the `FutRuleApp`

function.

No arguments

No return value

`FutRule`

, `FutRuleExample1`

, `FutRuleExample3`

# List of all parameters parameters = list() # Endpoint type parameters$endpoint_type = "Binary" # Direction of favorable outcome parameters$direction = "Higher" # Number of enrolled patients (control, three treatments) parameters$sample_size = c(75, 75, 75, 75) # Dropout rate parameters$dropout_rate = 0.05 # Response rate in the control arm parameters$control_rate = 0.35 # Response rates in the treatment arms parameters$treatment_rate = c(0.45, 0.5, 0.55) # Information fraction parameters$info_frac = 0.3 # One-sided alpha level parameters$alpha = 0.025 # Number of simulations, you should prefer more parameters$nsims = 100 # Number of cores for parallel calculations parameters$ncores = 1 # Remove this parameter in your code: parameters$withoutCharts = TRUE # Run simulations to compute characteristics of the futility stopping rule results = FutRule(parameters) # Generate a simulation report (remove tempfile) GenerateReport(results, tempfile("FutRule Binary endpoint.docx", fileext=".docx"))

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.