|
57 | 57 | #'
|
58 | 58 | #' # Example 1 ----
|
59 | 59 | #' # Information fraction driven design
|
60 |
| -#' \donttest{ |
61 | 60 | #' gs_design_wlr(
|
62 | 61 | #' enroll_rate = enroll_rate,
|
63 | 62 | #' fail_rate = fail_rate,
|
|
71 | 70 | #' lower = gs_spending_bound,
|
72 | 71 | #' lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.2),
|
73 | 72 | #' analysis_time = 36,
|
74 |
| -#' info_frac = 1:3/3 |
| 73 | +#' info_frac = c(0.6, 1) |
75 | 74 | #' )
|
76 |
| -#' } |
77 | 75 | #'
|
78 | 76 | #' # Example 2 ----
|
79 | 77 | #' # Calendar time driven design
|
80 |
| -#' \donttest{ |
81 | 78 | #' gs_design_wlr(
|
82 | 79 | #' enroll_rate = enroll_rate,
|
83 | 80 | #' fail_rate = fail_rate,
|
|
90 | 87 | #' upar = list(sf = gsDesign::sfLDOF, total_spend = 0.025),
|
91 | 88 | #' lower = gs_spending_bound,
|
92 | 89 | #' lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.2),
|
93 |
| -#' analysis_time = 1:3*12, |
| 90 | +#' analysis_time = c(24, 36), |
94 | 91 | #' info_frac = NULL
|
95 | 92 | #' )
|
96 |
| -#' } |
97 | 93 | #'
|
98 | 94 | #' # Example 3 ----
|
99 | 95 | #' # Both calendar time and information fraction driven design
|
100 |
| -#' \donttest{ |
101 | 96 | #' gs_design_wlr(
|
102 | 97 | #' enroll_rate = enroll_rate,
|
103 | 98 | #' fail_rate = fail_rate,
|
|
110 | 105 | #' upar = list(sf = gsDesign::sfLDOF, total_spend = 0.025),
|
111 | 106 | #' lower = gs_spending_bound,
|
112 | 107 | #' 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) |
115 | 110 | #' )
|
116 |
| -#' } |
117 | 111 | gs_design_wlr <- function(
|
118 | 112 | enroll_rate = define_enroll_rate(
|
119 | 113 | duration = c(2, 2, 10),
|
|
0 commit comments