tests/testthat/helper.R

In gsDesign2: Group Sequential Design with Non-Constant Effect

test_event <- function(enroll_rate, fail_rate, td = 15) {
  enroll_rate_1 <- enroll_rate
  enroll_rate_1$rate <- enroll_rate$rate / 2

  fail_rate_c <- fail_rate
  fail_rate_t <- fail_rate
  fail_rate_t$fail_rate <- fail_rate_t$fail_rate * fail_rate_t$hr

  event_c <- gsDesign2::expected_event(
    enroll_rate = enroll_rate_1,
    fail_rate = fail_rate_c,
    total_duration = td,
    simple = FALSE
  )

  event_t <- gsDesign2::expected_event(
    enroll_rate = enroll_rate_1,
    fail_rate = fail_rate_t,
    total_duration = td,
    simple = FALSE
  )

  total_e <- sum(event_c$event + event_t$event)

  total_e
}