tests/testthat/test_enrollment_rate.R

context("")
test_that("The enrollment rate are", {
  expect_equal(enrollment_rate(lambda = c(0.3, 0.9), time = 10)$lambda, c(0.3, 0.9))
  expect_equal(enrollment_rate(lambda = c(0.3, 0.9), time = 10)$lambda_time, 10)
})

Try the bayesCT package in your browser

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

bayesCT documentation built on July 2, 2020, 2:34 a.m.