Merge pull request #481 from jdblischak/fix-example-lf

Fix fixed_design_lf() example

Author: LittleBeannie

R/fixed_design_lf.R

@@ -46,7 +46,7 @@
 #' x %>% summary()
 #'
 #' # Example 2: given sample size and compute power
-#' x <- fixed_design_fh(
+#' x <- fixed_design_lf(
 #'   alpha = .025,
 #'   enroll_rate = define_enroll_rate(duration = 18, rate = 20),
 #'   fail_rate = define_fail_rate(

R/globals.R

@@ -57,7 +57,7 @@ utils::globalVariables(
       # From `gs_design_wlr()`
       c(
         "IF", "time", "event", "info", "info0", "theta", "bound",
-        "z", "n", "rate"
+        "z", "n", "rate", "delta", "sigma2"
       ),
       # From `gs_info_ahr()`
       c("analysis", "time", "theta", "info", "info0"),