Merge pull request #229 from Merck/foo-name

rename foo (#228)

Author: nanxstats

R/expected_time.R

@@ -109,7 +109,7 @@ expected_time <- function(enroll_rate = tibble::tibble(
   #    build a help function    #
   # ----------------------------#
   # find the difference between  `AHR()` and different values of total_duration
-  foo <- function(x) {
+  event_diff <- function(x) {
     ans <- ahr(
       enroll_rate = enroll_rate, fail_rate = fail_rate,
       total_duration = x, ratio = ratio
@@ -121,7 +121,7 @@ expected_time <- function(enroll_rate = tibble::tibble(
   #       uniroot AHR()         #
   #    over total_duration      #
   # ----------------------------#
-  res <- try(uniroot(foo, interval))
+  res <- try(uniroot(event_diff, interval))
 
   if (inherits(res, "try-error")) {
     stop("expected_time(): solution not found!")

R/gs_design_combo.R

@@ -192,7 +192,7 @@ gs_design_combo <- function(enroll_rate = tibble(
   }
 
   # Function to calculate power
-  foo <- function(n, beta, ...) {
+  get_combo_power <- function(n, beta, ...) {
     # Probability Cross Boundary
     prob <- gs_prob_combo(
       upper_bound = bound$upper,
@@ -227,7 +227,7 @@ gs_design_combo <- function(enroll_rate = tibble(
     )
 
 
-    sample_size <- uniroot(foo, c(1, n_upper_bound), extendInt = "yes", beta = beta, ...)$root
+    sample_size <- uniroot(get_combo_power, c(1, n_upper_bound), extendInt = "yes", beta = beta, ...)$root
   }
 
   # Probability Cross Boundary