Skip to content

Commit 188c0aa

Browse files
committed
reduce running time by cutting 3 analyses into 2 analyses
1 parent 208f505 commit 188c0aa

File tree

2 files changed

+8
-20
lines changed

2 files changed

+8
-20
lines changed

R/gs_design_wlr.R

Lines changed: 4 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -57,7 +57,6 @@
5757
#'
5858
#' # Example 1 ----
5959
#' # Information fraction driven design
60-
#' \donttest{
6160
#' gs_design_wlr(
6261
#' enroll_rate = enroll_rate,
6362
#' fail_rate = fail_rate,
@@ -71,13 +70,11 @@
7170
#' lower = gs_spending_bound,
7271
#' lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.2),
7372
#' analysis_time = 36,
74-
#' info_frac = 1:3/3
73+
#' info_frac = c(0.6, 1)
7574
#' )
76-
#' }
7775
#'
7876
#' # Example 2 ----
7977
#' # Calendar time driven design
80-
#' \donttest{
8178
#' gs_design_wlr(
8279
#' enroll_rate = enroll_rate,
8380
#' fail_rate = fail_rate,
@@ -90,14 +87,12 @@
9087
#' upar = list(sf = gsDesign::sfLDOF, total_spend = 0.025),
9188
#' lower = gs_spending_bound,
9289
#' lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.2),
93-
#' analysis_time = 1:3*12,
90+
#' analysis_time = c(24, 36),
9491
#' info_frac = NULL
9592
#' )
96-
#' }
9793
#'
9894
#' # Example 3 ----
9995
#' # Both calendar time and information fraction driven design
100-
#' \donttest{
10196
#' gs_design_wlr(
10297
#' enroll_rate = enroll_rate,
10398
#' fail_rate = fail_rate,
@@ -110,10 +105,9 @@
110105
#' upar = list(sf = gsDesign::sfLDOF, total_spend = 0.025),
111106
#' lower = gs_spending_bound,
112107
#' lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.2),
113-
#' analysis_time = 1:3*12,
114-
#' info_frac = c(0.3, 0.7, 1)
108+
#' analysis_time = c(24, 36),
109+
#' info_frac = c(0.6, 1)
115110
#' )
116-
#' }
117111
gs_design_wlr <- function(
118112
enroll_rate = define_enroll_rate(
119113
duration = c(2, 2, 10),

man/gs_design_wlr.Rd

Lines changed: 4 additions & 10 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)