fpahlke
commented
5 months ago 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.
getDesignGroupSequential(futilityBounds = c(0,0), bindingFutility = FALSE) |> plot() Plot legend displays bindingFutility = TRUE
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)
getDesignGroupSequential() |> getSampleSizeSurvival() |> summary() Expected study duration duration should have the same format as Analysis time (change to 2 decimal places)
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"!
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)