From 2e19d9928dcddf49ff139d4d1abc28c83941fb2e Mon Sep 17 00:00:00 2001 From: LittleBeannie Date: Wed, 19 Nov 2025 11:55:24 -0500 Subject: [PATCH 1/3] update version number --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 137e0e40..306dee38 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: gsDesign2 Title: Group Sequential Design with Non-Constant Effect -Version: 1.1.6.1 +Version: 1.1.7 Authors@R: c( person("Keaven", "Anderson", email = "keaven_anderson@merck.com", role = c("aut")), person("Yujie", "Zhao", email = "yujie.zhao@merck.com", role = c("aut", "cre")), From 1da0c1b5f7717f0a916ab6c122e6b21d92f17b8b Mon Sep 17 00:00:00 2001 From: LittleBeannie Date: Wed, 19 Nov 2025 11:55:33 -0500 Subject: [PATCH 2/3] update NEWS.md --- NEWS.md | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/NEWS.md b/NEWS.md index 1be5e207..72813104 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,8 +1,19 @@ # gsDesign2 1.1.7 -## User interface improvements +## Documentation + +- The vignette discussing the futility boundary design is finalized (#583, thanks to @LittleBeannie) +- An example calculating expected events for multiple strata is added (#597, thanks to @LittleBeannie) +- The documentation of common parameters is unified by `@inheritparams` (#598, thanks to @LittleBeannie) +- A contributing guide with overview of package architecture is added (#596, thanks to @jdblischak) + +## Programming improvements +- The S3 classes are re-factored (#584, thanks to @jdblischak) +- The input parameters are not displayed when printing the objects (#586, thanks to @jdblischak) - `text_summary()` supports design objects with spending functions specified as character strings (#587, thanks to @yihui). +- The attribute assignment `uninteger_is_from` is fixed in `to_integer()` (#591, thanks to @jdblischak) +- `text_summary()` is updated to support fixed designs from `gs_design_ahr()` (#592, thanks to @jdblischak) # gsDesign2 1.1.6 From 53f674a6cd005ab3b453d2078bc89eb474dbe510 Mon Sep 17 00:00:00 2001 From: LittleBeannie Date: Wed, 19 Nov 2025 13:48:51 -0500 Subject: [PATCH 3/3] addressed John's comments --- R/expected_event.R | 16 +++++++++------- man/expected_event.Rd | 16 +++++++++------- 2 files changed, 18 insertions(+), 14 deletions(-) diff --git a/R/expected_event.R b/R/expected_event.R index 36b959f9..c105678f 100644 --- a/R/expected_event.R +++ b/R/expected_event.R @@ -109,13 +109,15 @@ #' ) #' #' # Single time period example, multiple strata -#' enroll_rate <- define_enroll_rate(stratum = rep(c("Biomarker-positive", "Biomarker-negative"), each = 4), -#' duration = c(2, 2, 2, 6, 2, 2, 2, 6), -#' rate = c(1:4, 1:4)) -#' failure_rate <- define_fail_rate(stratum = rep(c("Biomarker-positive", "Biomarker-negative"), each = 2), -#' duration = c(3, 100, 3, 100), -#' fail_rate = log(2) / c(8, 12, 8, 10), -#' dropout_rate = 0.001) +#' enroll_rate <- define_enroll_rate( +#' stratum = rep(c("Biomarker-positive", "Biomarker-negative"), each = 4), +#' duration = c(2, 2, 2, 6, 2, 2, 2, 6), +#' rate = c(1:4, 1:4)) +#' failure_rate <- define_fail_rate( +#' stratum = rep(c("Biomarker-positive", "Biomarker-negative"), each = 2), +#' duration = c(3, 100, 3, 100), +#' fail_rate = log(2) / c(8, 12, 8, 10), +#' dropout_rate = 0.001) #' # Number of expected events by stratum #' sapply(c("Biomarker-positive", "Biomarker-negative"), #' function(ss){ diff --git a/man/expected_event.Rd b/man/expected_event.Rd index a729d69a..9b4ac34d 100644 --- a/man/expected_event.Rd +++ b/man/expected_event.Rd @@ -114,13 +114,15 @@ expected_event( ) # Single time period example, multiple strata -enroll_rate <- define_enroll_rate(stratum = rep(c("Biomarker-positive", "Biomarker-negative"), each = 4), - duration = c(2, 2, 2, 6, 2, 2, 2, 6), - rate = c(1:4, 1:4)) -failure_rate <- define_fail_rate(stratum = rep(c("Biomarker-positive", "Biomarker-negative"), each = 2), - duration = c(3, 100, 3, 100), - fail_rate = log(2) / c(8, 12, 8, 10), - dropout_rate = 0.001) +enroll_rate <- define_enroll_rate( + stratum = rep(c("Biomarker-positive", "Biomarker-negative"), each = 4), + duration = c(2, 2, 2, 6, 2, 2, 2, 6), + rate = c(1:4, 1:4)) +failure_rate <- define_fail_rate( + stratum = rep(c("Biomarker-positive", "Biomarker-negative"), each = 2), + duration = c(3, 100, 3, 100), + fail_rate = log(2) / c(8, 12, 8, 10), + dropout_rate = 0.001) # Number of expected events by stratum sapply(c("Biomarker-positive", "Biomarker-negative"), function(ss){