add integer argument to gs_power_wlr

Merck · Oct 28, 2024 · 774d5a1 · 774d5a1
1 parent 1eba1ea
commit 774d5a1
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/R/gs_power_wlr.R b/R/gs_power_wlr.R
@@ -181,7 +181,8 @@ gs_power_wlr <- function(enroll_rate = define_enroll_rate(duration = c(2, 2, 10)
                          approx = "asymptotic",
                          r = 18,
                          tol = 1e-6,
-                         interval = c(.01, 1000)) {
+                         interval = c(.01, 1000),
+                         integer = FALSE) {
   # check of inputted sample size
   input_sample_size <- sum(enroll_rate$rate * enroll_rate$duration)
 

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