design <- get_initial_design(0.4, 0.025, 0.1)
SurvivalDesign(design, 0.8)
design_os <- get_initial_design(0.4, 0.025, 0.1, type_design = "one-stage")
design_gs <- get_initial_design(0.4, 0.025, 0.1, type_design = "group-sequential")
OneStageDesign(design_os, 0.7)
GroupSequentialDesign(design_gs, 0.8)
Run the code above in your browser using DataLab