tests/testthat/test_num_cohort_outcomes.R

test_that('num_cohort_outcomes is right', {
  x <- num_cohort_outcomes(num_patient_outcomes = 2, cohort_size = 3)
  expect_equal(x, 4)

  x <- num_cohort_outcomes(num_patient_outcomes = 4, cohort_size = 3)
  expect_equal(x, 20)
})

Try the escalation package in your browser

Any scripts or data that you put into this service are public.

escalation documentation built on May 31, 2023, 6:32 p.m.