add integer argument to gs_power_wlr

Author: LittleBeannie

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)