tests/testthat/test-simcuredata.R

In blapsr: Bayesian Inference with Laplace Approximations and P-Splines

context("Check inputs of simcuredata routine")

# Error if wrong cure setting

test_that("cure setting", {
  expect_error(
    simcuredata(n = 300, censor = "Weibull", cure.setting = 3, KapMeier = TRUE)
  )
})