reduce running time by cutting 3 analyses into 2 analyses

Merck · Nov 15, 2024 · 188c0aa · 188c0aa
1 parent 208f505
commit 188c0aa
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 20 deletions.
diff --git a/R/gs_design_wlr.R b/R/gs_design_wlr.R
@@ -57,7 +57,6 @@
 #'
 #' # Example 1 ----
 #' # Information fraction driven design
-#' \donttest{
 #' gs_design_wlr(
 #'   enroll_rate = enroll_rate,
 #'   fail_rate = fail_rate,
@@ -71,13 +70,11 @@
 #'   lower = gs_spending_bound,
 #'   lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.2),
 #'   analysis_time = 36,
-#'   info_frac = 1:3/3
+#'   info_frac = c(0.6, 1)
 #' )
-#' }
 #'
 #' # Example 2 ----
 #' # Calendar time driven design
-#' \donttest{
 #' gs_design_wlr(
 #'   enroll_rate = enroll_rate,
 #'   fail_rate = fail_rate,
@@ -90,14 +87,12 @@
 #'   upar = list(sf = gsDesign::sfLDOF, total_spend = 0.025),
 #'   lower = gs_spending_bound,
 #'   lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.2),
-#'   analysis_time = 1:3*12,
+#'   analysis_time = c(24, 36),
 #'   info_frac = NULL
 #' )
-#' }
 #'
 #' # Example 3 ----
 #' # Both calendar time and information fraction driven design
-#' \donttest{
 #' gs_design_wlr(
 #'   enroll_rate = enroll_rate,
 #'   fail_rate = fail_rate,
@@ -110,10 +105,9 @@
 #'   upar = list(sf = gsDesign::sfLDOF, total_spend = 0.025),
 #'   lower = gs_spending_bound,
 #'   lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.2),
-#'   analysis_time = 1:3*12,
-#'   info_frac = c(0.3, 0.7, 1)
+#'   analysis_time = c(24, 36),
+#'   info_frac = c(0.6, 1)
 #' )
-#' }
 gs_design_wlr <- function(
     enroll_rate = define_enroll_rate(
       duration = c(2, 2, 10),

diff --git a/man/gs_design_wlr.Rd b/man/gs_design_wlr.Rd