Minor fixes

[gwassmer]

1. getDesignGroupSequential(futilityBounds = c(0,0), bindingFutility = FALSE) |> plot()
   Plot legend displays bindingFutility = TRUE

2. getSampleSizeRates(groups = 1, thetaH0 = 0.2, riskRatio = FALSE)
   getPowerRates(groups = 1, thetaH0 = 0.2, riskRatio = FALSE, maxNumberOfSubjects = 100)
   There should be a warning that riskRatio = FALSE will be ignored (correct for getSamplesizeMeans and getPowerMeans)

3. getDesignGroupSequential() |> getSampleSizeSurvival() |> summary()
   Expected study duration duration should have the same format as Analysis time (change to 2 decimal places)

4. design <- getDesignGroupSequential(typeOfDesign = "asOF")
   dataExample <- getDataset(cumEvents = c(67, 129), cumLogRanks = c(-1.1, -2.0))
   getAnalysisResults(design = design, dataInput = dataExample) |> summary()
   For group sequential design second line in summary should not "Fixed weight" but "Planned information rate",
   "Fixed weight" only for combination test"!

5. Bug for pipe operator in analysis results:
   S <- getDataSet(
   events1 = c(11, 12),
   events2 = c(6, 7),
   n1 = c(36, 39),
   n2 = c(38, 40))
   R <- getDataSet(
   events1 = c(12, 10),
   events2 = c(8, 8),
   n1 = c(32, 33),
   n2 = c(31, 29))
   getDesignInverseNormal(kMax = 2) |> getDataSet(S1 = S, R = R) |>
   getAnalysisResults(stage = 1, nPlanned = 150, intersectionTest = "Simes" ) |> pull(conditionalPower)

[fpahlke]

Issues fixed in branch dev/4.0.0

Details:

• 1, 3, 4, 5: solved.
• 2: not yet implemented: Explanation for why this change cannot be implemented quickly: The default value for riskRatio is FALSE, and thetaH0 depends on a valid riskRatio value. Therefore, changing the default to NA is not straightforward, as NA is necessary to determine whether the value is user-defined or not.