tests/testthat/helper-double-programming-expected_time.R

In gsDesign2: Group Sequential Design with Non-Constant Effect

# Helper functions used by test-independent-expected_time.R

test_expected_time <- function() {
  enroll_rate <- define_enroll_rate(
    duration = c(2, 2, 10),
    rate = c(3, 6, 9) * 5
  )

  fail_rate <- define_fail_rate(
    duration = c(3, 100),
    fail_rate = log(2) / c(9, 18),
    dropout_rate = rep(.001, 2),
    hr = c(.9, .6)
  )

  target_event <- 150
  interval <- c(.01, 100)

  t1 <- expected_time(
    enroll_rate = enroll_rate,
    fail_rate = fail_rate,
    target_event = target_event,
    interval = interval
  )

  list("enroll_rate" = enroll_rate, "fail_rate" = fail_rate, "t1" = t1)
}