This R Markdown document provides examples for simulating multi-arm multi-stage (MAMS) designs for testing means with rpact.

This document provides examples for simulating multi-arm multi-stage (MAMS) designs for testing means in many-to-one comparisons. For designs with multiple arms, rpact enables the simulation of designs that use the **closed combination testing principle**. For a description of the methodology please refer to Part III of the book “Group Sequential and Confirmatory Adaptive Designs in Clinical Trials” by Gernot Wassmer & Werner Brannath. Essentially, we show in this vignette how to reproduce part of the simulation results provided in the paper “On Sample Size Determination in Multi-Arm Confirmatory Adaptive Designs” by Gernot Wassmer (Journal of Biopharmaceutical Statistics, 2011).

**First, load the rpact package**

`## [1] '3.2.1'`

rpact enables the assessment of sample sizes in multiple arms including selection of treatment arms. We will first consider the simple case of a two-stage design with O’Brien & Fleming boundaries assuming three active treatment arms which are tested against control. Let the three treatment arms be referring to three different and increasing doses, “low”, “medium”, and “high”, say. We assume that the highest dose will have response difference 10 as compared to control, and that there will be a linear dose-response relationship. The standard deviation is assumed to be \(\sigma = 15\). At interim, the treatment arm with the highest observed response as compared to placebo is selected for testing at the second stage.

One way to adjust for the multiple comparison situation is to use the Bonferroni correction for testing the intersection tests in the closed system of hypotheses. It will show that using \(\alpha/3\) instead of \(\alpha\) for the sample size calculation for the highest dose in the two-arm fixed sample size case can serve as a reasonable first guess for the sample size for the multi-arm case. That is, for \(\alpha = 0.025\) and power \(1 - \beta = 90\%\) we calculate the sample size using the commands

```
nsFixed <- getSampleSizeMeans(alpha = 0.025/3, beta = 0.1, alternative = 10, stDev = 15)
summary(nsFixed)
```

```
## Sample size calculation for a continuous endpoint
##
## Fixed sample analysis, significance level 0.83% (one-sided).
## The sample size was calculated for a two-sample t-test, H0: mu(1) - mu(2) = 0,
## H1: effect = 10, standard deviation = 15, power 90%.
##
## Stage Fixed
## Efficacy boundary (z-value scale) 2.394
## Number of subjects 124.5
## One-sided local significance level 0.0083
## Efficacy boundary (t) 6.526
##
## Legend:
## (t): treatment effect scale
```

yielding 125 as the total number of subjects and hence n = 63 subjects per treatment arm in order to achieve the desired power. As a first guess for the multi-arm two-stage case we choose 30 per stage and treatment arm and use the following commands for evaluating the MAMS design:

```
designIN <- getDesignInverseNormal(kMax = 2, alpha = 0.025, typeOfDesign = "OF")
maxNumberOfIterations <- 1000
simBonfMAMS <- getSimulationMultiArmMeans(design = designIN,
activeArms = 3,
muMaxVector = c(10),
stDev = 15,
plannedSubjects = c(30,60),
intersectionTest = "Bonferroni",
typeOfShape = "linear",
typeOfSelection = "best",
successCriterion = "all",
maxNumberOfIterations = maxNumberOfIterations,
seed = 1234)
summary(simBonfMAMS)
```

```
## Simulation of a continuous endpoint (multi-arm design)
##
## Sequential analysis with a maximum of 2 looks
## (inverse normal combination test design), overall significance level 2.5%
## (one-sided).
## The results were simulated for a multi-arm comparisons for means
## (3 treatments vs. control), H0: mu(i) - mu(control) = 0, H1: mu_max = 10,
## standard deviation = 15, planned cumulative sample size = c(30, 60),
## intersection test = Bonferroni, effect shape = linear, selection = best,
## effect measure based on effect estimate, success criterion: all,
## simulation runs = 1000, seed = 1234.
##
## Stage 1 2
## Fixed weight 0.707 0.707
## Efficacy boundary (z-value scale) 2.797 1.977
## Reject at least one 0.8850
## Rejected arms per stage
## Treatment arm 1 0.0130 0.0080
## Treatment arm 2 0.1120 0.0890
## Control arm 0.3030 0.4510
## Success per stage 0.0060 0.8790
## Exit probability for futility 0.0040
## Expected number of subjects 179.4
## Overall exit probability 0.0100
## Stagewise number of subjects
## Treatment arm 1 30.0 0.7
## Treatment arm 2 30.0 5.6
## Treatment arm 3 30.0 23.7
## Control arm 30.0 30.0
## Selected arms
## Treatment arm 1 1.0000 0.0220
## Treatment arm 2 1.0000 0.1850
## Control arm 1.0000 0.7830
## Number of active arms 3.000 1.000
## Conditional power (achieved) 0.5785
##
## Legend:
## (i): treatment arm i
```

We see that the power, which is the probability to reject at least one of the three corresponding hypotheses, is about 88% if a linear dose-response relationship is assumed. Note that there is a small probability to stop the trial for futility which is us due to the use of the Bonferroni correction yielding \(p\)-values equal to 1 at interim (making a rejection at stage 2 impossible).

Using the Dunnett test for testing the intersection hypotheses increases the power to about 90% which is obtained by selecting `intersectionTest = "Dunnett"`

:

```
simDunnettMAMS <- getSimulationMultiArmMeans(design = designIN,
activeArms = 3,
typeOfShape = "linear",
muMaxVector = c(10),
stDev = 15,
plannedSubjects = c(30,60),
intersectionTest = "Dunnett",
typeOfSelection = "best",
successCriterion = "all",
maxNumberOfIterations = maxNumberOfIterations,
seed = 1234)
summary(simDunnettMAMS)
```

```
## Simulation of a continuous endpoint (multi-arm design)
##
## Sequential analysis with a maximum of 2 looks
## (inverse normal combination test design), overall significance level 2.5%
## (one-sided).
## The results were simulated for a multi-arm comparisons for means
## (3 treatments vs. control), H0: mu(i) - mu(control) = 0, H1: mu_max = 10,
## standard deviation = 15, planned cumulative sample size = c(30, 60),
## intersection test = Dunnett, effect shape = linear, selection = best,
## effect measure based on effect estimate, success criterion: all,
## simulation runs = 1000, seed = 1234.
##
## Stage 1 2
## Fixed weight 0.707 0.707
## Efficacy boundary (z-value scale) 2.797 1.977
## Reject at least one 0.8990
## Rejected arms per stage
## Treatment arm 1 0.0130 0.0080
## Treatment arm 2 0.1140 0.0910
## Control arm 0.3080 0.4580
## Success per stage 0.0060 0.8930
## Expected number of subjects 179.6
## Overall exit probability 0.0060
## Stagewise number of subjects
## Treatment arm 1 30.0 0.7
## Treatment arm 2 30.0 5.6
## Treatment arm 3 30.0 23.7
## Control arm 30.0 30.0
## Selected arms
## Treatment arm 1 1.0000 0.0220
## Treatment arm 2 1.0000 0.1870
## Control arm 1.0000 0.7850
## Number of active arms 3.000 1.000
## Conditional power (achieved) 0.5761
##
## Legend:
## (i): treatment arm i
```

Changing `successCriterion = "all"`

to `successCriterion = "atLeastOne"`

reduces the expected number of subjects considerably because the trial is stopped at interim in many more cases:

```
simDunnettMAMSatLeastOne <- getSimulationMultiArmMeans(design = designIN,
activeArms = 3,
typeOfShape = "linear",
muMaxVector = c(10),
stDev = 15,
plannedSubjects = c(30,60),
intersectionTest = "Dunnett",
typeOfSelection = "best",
successCriterion = "atLeastOne",
maxNumberOfIterations = maxNumberOfIterations,
seed = 1234)
summary(simDunnettMAMSatLeastOne)
```

```
## Simulation of a continuous endpoint (multi-arm design)
##
## Sequential analysis with a maximum of 2 looks
## (inverse normal combination test design), overall significance level 2.5%
## (one-sided).
## The results were simulated for a multi-arm comparisons for means
## (3 treatments vs. control), H0: mu(i) - mu(control) = 0, H1: mu_max = 10,
## standard deviation = 15, planned cumulative sample size = c(30, 60),
## intersection test = Dunnett, effect shape = linear, selection = best,
## effect measure based on effect estimate, success criterion: at least one,
## simulation runs = 1000, seed = 1234.
##
## Stage 1 2
## Fixed weight 0.707 0.707
## Efficacy boundary (z-value scale) 2.797 1.977
## Reject at least one 0.8990
## Rejected arms per stage
## Treatment arm 1 0.0130 0.0080
## Treatment arm 2 0.1140 0.0910
## Control arm 0.3080 0.4580
## Success per stage 0.3420 0.5570
## Expected number of subjects 159.5
## Overall exit probability 0.3420
## Stagewise number of subjects
## Treatment arm 1 30.0 0.8
## Treatment arm 2 30.0 6.3
## Treatment arm 3 30.0 22.9
## Control arm 30.0 30.0
## Selected arms
## Treatment arm 1 1.0000 0.0180
## Treatment arm 2 1.0000 0.1380
## Control arm 1.0000 0.5020
## Number of active arms 3.000 1.000
## Conditional power (achieved) 0.3989
##
## Legend:
## (i): treatment arm i
```

For this example, we might conclude that choosing 30 subjects per treatment arm and stage is a reasonable choice. If, however, the effect sizes are smaller for the low and medium dose, the power might decrease and the sample size therefore should be increased. For example, assuming effect sizes of only 1 and 2 in the low and medium dose group, respectively, the test characteristics can be obtained by using the `typeOfShape = userDefined`

option. The effect sizes of interest are specified through `effectMatrix`

(which needs to be a matrix because you can also generally consider more that one parameter configuration per simulation run):

```
simDunnettMAMS <- getSimulationMultiArmMeans(design = designIN,
activeArms = 3,
typeOfShape = "userDefined",
effectMatrix = matrix(c(1,2,10), ncol = 3),
stDev = 15,
plannedSubjects = c(30,60),
intersectionTest = "Dunnett",
typeOfSelection = "best",
successCriterion = "atLeastOne",
maxNumberOfIterations = maxNumberOfIterations,
seed = 1234)
summary(simDunnettMAMS)
```

```
## Simulation of a continuous endpoint (multi-arm design)
##
## Sequential analysis with a maximum of 2 looks
## (inverse normal combination test design), overall significance level 2.5%
## (one-sided).
## The results were simulated for a multi-arm comparisons for means
## (3 treatments vs. control), H0: mu(i) - mu(control) = 0, H1: mu_max = 1,
## standard deviation = 15, planned cumulative sample size = c(30, 60),
## intersection test = Dunnett, effect shape = user defined, selection = best,
## effect measure based on effect estimate, success criterion: at least one,
## simulation runs = 1000, seed = 1234.
##
## Stage 1 2
## Fixed weight 0.707 0.707
## Efficacy boundary (z-value scale) 2.797 1.977
## Reject at least one 0.8970
## Rejected arms per stage
## Treatment arm 1 0 0.0010
## Treatment arm 2 0.0050 0.0040
## Control arm 0.3060 0.5860
## Success per stage 0.3060 0.5910
## Expected number of subjects 161.6
## Overall exit probability 0.3060
## Stagewise number of subjects
## Treatment arm 1 30.0 0.3
## Treatment arm 2 30.0 0.8
## Treatment arm 3 30.0 29.0
## Control arm 30.0 30.0
## Selected arms
## Treatment arm 1 1.0000 0.0060
## Treatment arm 2 1.0000 0.0180
## Control arm 1.0000 0.6700
## Number of active arms 3.000 1.000
## Conditional power (achieved) 0.2592
##
## Legend:
## (i): treatment arm i
```

It is interesting (though actually clear) that the power and other test characteristics are quite similar and so the validity of the chosen sample size might be considered as robust against possible deviations for the originally assumed linear dose-response relationship. Note that ’Stagewise number of subjects` denote the **conditional expected sample size in treatment arm i** and so account for the fact that a treatment arm is selected given the fact that the second stage was reached.

Since treatment arms are discontinued over the two stages, the sample size and hence the information over the stages is not the same. Despite of this, we used the **unweighted inverse normal method** (with weight = \(1/\sqrt{2}\)) for combining the two stages. The pre-fixed weight, however, does not have a substantial impact on the power of the procedure which is shown in the following plot. The simulated power values show that in a medium range of the weights the power does not change substantially and hence it is reasonable to choose equal weights for the two stages:

```
powerValues <- c()
weights <- seq(0.05, 0.95, 0.05)
for (w in weights) {
designIN <- getDesignInverseNormal(kMax = 2, alpha = 0.025,
informationRates = c(w,1), typeOfDesign = "OF")
powerValues <- c(powerValues,
getSimulationMultiArmMeans(design = designIN,
activeArms = 3,
typeOfShape = "linear",
muMaxVector = c(10),
stDev = 15,
plannedSubjects = c(30,60),
intersectionTest = "Dunnett",
typeOfSelection = "best",
successCriterion = "atLeastOne",
maxNumberOfIterations = maxNumberOfIterations,
seed = 12345)$rejectAtLeastOne)
}
plot(weights, powerValues, type = "l", lwd = 3, ylim = c(0.7,1),
xlab = "weight", ylab = "Power")
lines(weights, rep(0.9, length(weights)), lty = 2)
```

You might assess different selection rules by using the parameter `typeOfSelection`

. Five options are available: `best`

, `rBest`

, `epsilon`

, `all`

, and `userDefined`

. For `rbest`

(select the `rValue`

best treatment arms), the parameter `rValue`

has to be specified, for `epsilon`

(select treatment arm not worse than epsilon compared to the best), the parameter `epsilonValue`

has to be specified.

If `userDefined`

is selected, `selectArmsFunction`

needs to be specified that depends on `effectVector`

. Note that `effectVector`

is either the test statistic or the effect difference (in absolute terms) which can be selected through the parameter `effectMeasure`

. For example, using the function

```
designIN <- getDesignInverseNormal(kMax = 2, alpha = 0.025, typeOfDesign = "OF")
mySelectionFunction <- function(effectVector) {
selectedArms <- (effectVector >= c(5, 5, 5))
return(selectedArms)
}
```

defines a selection rule where all treatment arms with effect sizes exceeding 5 (with the default `effectMeasure = effectMeasure`

) are selected. Running

```
simSelectionMAMS <- getSimulationMultiArmMeans(design = designIN,
activeArms = 3,
typeOfShape = "linear",
muMaxVector = c(10),
stDev = 15,
plannedSubjects = c(30,60),
intersectionTest = "Dunnett",
typeOfSelection = "userDefined",
selectArmsFunction = mySelectionFunction,
successCriterion = "atLeastOne",
maxNumberOfIterations = maxNumberOfIterations,
seed = 1234)
summary(simSelectionMAMS)
```

```
## Simulation of a continuous endpoint (multi-arm design)
##
## Sequential analysis with a maximum of 2 looks
## (inverse normal combination test design), overall significance level 2.5%
## (one-sided).
## The results were simulated for a multi-arm comparisons for means
## (3 treatments vs. control), H0: mu(i) - mu(control) = 0, H1: mu_max = 10,
## standard deviation = 15, planned cumulative sample size = c(30, 60),
## intersection test = Dunnett, effect shape = linear, selection = user defined,
## effect measure based on effect estimate, success criterion: at least one,
## simulation runs = 1000, seed = 1234.
##
## Stage 1 2
## Fixed weight 0.707 0.707
## Efficacy boundary (z-value scale) 2.797 1.977
## Reject at least one 0.8840
## Rejected arms per stage
## Treatment arm 1 0.0140 0.0470
## Treatment arm 2 0.0870 0.2640
## Control arm 0.3050 0.5330
## Success per stage 0.3260 0.5580
## Exit probability for futility 0.0700
## Expected number of subjects 170.8
## Overall exit probability 0.3960
## Stagewise number of subjects
## Treatment arm 1 30.0 6.8
## Treatment arm 2 30.0 19.1
## Treatment arm 3 30.0 28.3
## Control arm 30.0 30.0
## Selected arms
## Treatment arm 1 1.0000 0.1360
## Treatment arm 2 1.0000 0.3840
## Control arm 1.0000 0.5690
## Number of active arms 3.000 1.803
## Conditional power (achieved) 0.4021
##
## Legend:
## (i): treatment arm i
```

shows that for the second stage the expected number of selected treatment arms is 1.803 indicating that there are cases where more than one arm is selected for the second stage.

Using `getData()`

enables to show how often this is the case. The following code lines calculate how often 1, 2, and 3 treatment arms were selected for the second stage:

```
dat <- getData(simSelectionMAMS)
tab <- as.matrix(table(dat[dat$stageNumber == 2,]$iterationNumber))
round(table(tab[,1])/nrow(tab),5)
```

```
##
## 1 2 3
## 0.36258 0.47185 0.16556
```

Note that these probabilities are **conditional probabilities** (conditional on performing the second stage) and sum to one whereas the probabilities for selecting arm 1, 2, or 3 provided in the summary are **unconditional**, i.e., not conditioned on reaching the second stage. In particular, they may become small if the study often stops at interim.

We now consider a three-stage inverse normal combination test design where no early stops for efficacy are foreseen. At the end, the full significance level of \(\alpha = 0.025\) should be used. This is achieved by the definition of the design through

```
designIN3Stages <- getDesignInverseNormal(typeOfDesign = "asUser",
userAlphaSpending = c(0, 0, 0.025))
```

As above, we plan a design with three active treatment arms to be tested against control and assume a linear dose-response relationship. We want to consider a range of maximum values for the effect and therefore specify `muMaxVector = seq(0,12,3)`

, i.e., including the null hypothesis case. For the selection of treatment arms, we define the epsilon selection rule with \(\epsilon = 2\), i.e., for the subsequent stages, the treatment arm with the highest response and all treatment arms that differ less than 2 with the highest response are selected. To exclude treatment arms with non-positive response, we additionally specify `threshold = 0`

. In order to simulate a situation with a maximum of 60 subject per treatment arm we set `plannedSubjects = c(20, 40, 60)`

:

```
simSelectionEpsilonMAMS <- getSimulationMultiArmMeans(
design = designIN3Stages,
activeArms = 3,
typeOfShape = "linear",
muMaxVector = seq(0,12,2),
stDev = 15,
plannedSubjects = c(20,40,60),
intersectionTest = "Dunnett",
typeOfSelection = "epsilon",
epsilonValue = 2,
threshold = 0,
successCriterion = "atLeastOne",
maxNumberOfIterations = maxNumberOfIterations,
seed = 1234)
options("rpact.summary.output.size" = "medium")
summary(simSelectionEpsilonMAMS)
```

```
## Simulation of a continuous endpoint (multi-arm design)
##
## Sequential analysis with a maximum of 3 looks
## (inverse normal combination test design), overall significance level 2.5%
## (one-sided).
## The results were simulated for a multi-arm comparisons for means
## (3 treatments vs. control), H0: mu(i) - mu(control) = 0, H1: effect as specified,
## standard deviation = 15, planned cumulative sample size = c(20, 40, 60),
## intersection test = Dunnett, effect shape = linear,
## selection = epsilon rule, eps = 2, threshold = 0,
## effect measure based on effect estimate, success criterion: at least one,
## simulation runs = 1000, seed = 1234.
##
## Stage 1 2 3
## Fixed weight 0.577 0.577 0.577
## Efficacy boundary (z-value scale) Inf Inf 1.960
## Reject at least one, mu_max = 0 0.0230
## Reject at least one, mu_max = 2 0.0790
## Reject at least one, mu_max = 4 0.2160
## Reject at least one, mu_max = 6 0.4750
## Reject at least one, mu_max = 8 0.7200
## Reject at least one, mu_max = 10 0.8990
## Reject at least one, mu_max = 12 0.9680
## Success per stage, mu_max = 0 0 0 0.0230
## Success per stage, mu_max = 2 0 0 0.0790
## Success per stage, mu_max = 4 0 0 0.2160
## Success per stage, mu_max = 6 0 0 0.4750
## Success per stage, mu_max = 8 0 0 0.7200
## Success per stage, mu_max = 10 0 0 0.8990
## Success per stage, mu_max = 12 0 0 0.9680
## Exit probability for futility, mu_max = 0 0.2410 0.1140
## Exit probability for futility, mu_max = 2 0.1650 0.0700
## Exit probability for futility, mu_max = 4 0.0750 0.0330
## Exit probability for futility, mu_max = 6 0.0530 0.0130
## Exit probability for futility, mu_max = 8 0.0210 0.0030
## Exit probability for futility, mu_max = 10 0.0060 0.0020
## Exit probability for futility, mu_max = 12 0.0040 0
## Expected number of subjects, mu_max = 0 144.8
## Expected number of subjects, mu_max = 2 154.7
## Expected number of subjects, mu_max = 4 165.1
## Expected number of subjects, mu_max = 6 167.1
## Expected number of subjects, mu_max = 8 169.0
## Expected number of subjects, mu_max = 10 167.9
## Expected number of subjects, mu_max = 12 167.5
## Overall exit probability, mu_max = 0 0.2410 0.1140
## Overall exit probability, mu_max = 2 0.1650 0.0700
## Overall exit probability, mu_max = 4 0.0750 0.0330
## Overall exit probability, mu_max = 6 0.0530 0.0130
## Overall exit probability, mu_max = 8 0.0210 0.0030
## Overall exit probability, mu_max = 10 0.0060 0.0020
## Overall exit probability, mu_max = 12 0.0040 0
## Stagewise number of subjects, mu_max = 0
## Treatment arm 1 20.0 9.2 7.6
## Treatment arm 2 20.0 9.2 8.1
## Treatment arm 3 20.0 9.6 8.4
## Control arm 20.0 20.0 20.0
## Stagewise number of subjects, mu_max = 2
## Treatment arm 1 20.0 7.9 6.3
## Treatment arm 2 20.0 9.4 7.6
## Treatment arm 3 20.0 11.4 10.6
## Control arm 20.0 20.0 20.0
## Stagewise number of subjects, mu_max = 4
## Treatment arm 1 20.0 6.4 4.6
## Treatment arm 2 20.0 9.3 7.7
## Treatment arm 3 20.0 13.1 12.5
## Control arm 20.0 20.0 20.0
## Stagewise number of subjects, mu_max = 6
## Treatment arm 1 20.0 4.9 3.0
## Treatment arm 2 20.0 8.6 6.8
## Treatment arm 3 20.0 14.8 14.6
## Control arm 20.0 20.0 20.0
## Stagewise number of subjects, mu_max = 8
## Treatment arm 1 20.0 3.2 1.5
## Treatment arm 2 20.0 8.2 6.3
## Treatment arm 3 20.0 16.0 15.7
## Control arm 20.0 20.0 20.0
## Stagewise number of subjects, mu_max = 10
## Treatment arm 1 20.0 2.0 0.8
## Treatment arm 2 20.0 7.0 4.6
## Treatment arm 3 20.0 17.2 17.0
## Control arm 20.0 20.0 20.0
## Stagewise number of subjects, mu_max = 12
## Treatment arm 1 20.0 1.3 0.3
## Treatment arm 2 20.0 6.8 4.3
## Treatment arm 3 20.0 17.7 17.4
## Control arm 20.0 20.0 20.0
## Selected arms, mu_max = 0
## Treatment arm 1 1.0000 0.3500 0.2450
## Treatment arm 2 1.0000 0.3480 0.2600
## Control arm 1.0000 0.3630 0.2720
## Selected arms, mu_max = 2
## Treatment arm 1 1.0000 0.3280 0.2410
## Treatment arm 2 1.0000 0.3930 0.2920
## Control arm 1.0000 0.4770 0.4050
## Selected arms, mu_max = 4
## Treatment arm 1 1.0000 0.2980 0.2060
## Treatment arm 2 1.0000 0.4280 0.3440
## Control arm 1.0000 0.6060 0.5570
## Selected arms, mu_max = 6
## Treatment arm 1 1.0000 0.2300 0.1380
## Treatment arm 2 1.0000 0.4060 0.3160
## Control arm 1.0000 0.7030 0.6810
## Selected arms, mu_max = 8
## Treatment arm 1 1.0000 0.1590 0.0730
## Treatment arm 2 1.0000 0.4020 0.3080
## Control arm 1.0000 0.7840 0.7670
## Selected arms, mu_max = 10
## Treatment arm 1 1.0000 0.1000 0.0410
## Treatment arm 2 1.0000 0.3480 0.2260
## Control arm 1.0000 0.8530 0.8430
## Selected arms, mu_max = 12
## Treatment arm 1 1.0000 0.0630 0.0160
## Treatment arm 2 1.0000 0.3370 0.2160
## Control arm 1.0000 0.8830 0.8690
## Number of active arms, mu_max = 0 3.000 1.398 1.205
## Number of active arms, mu_max = 2 3.000 1.435 1.226
## Number of active arms, mu_max = 4 3.000 1.440 1.241
## Number of active arms, mu_max = 6 3.000 1.414 1.215
## Number of active arms, mu_max = 8 3.000 1.374 1.176
## Number of active arms, mu_max = 10 3.000 1.309 1.119
## Number of active arms, mu_max = 12 3.000 1.288 1.105
##
## Legend:
## (i): treatment arm i
```

Note that we explicitly use the `options("rpact.summary.output.size" = "medium")`

command because otherwise the output turns out to be too long. You might also illustrate the results through the generic `plot`

command. For example, generating Overall Power/Early Stopping and Selected Arms per Stage plots are achieved by