tests/testthat/test-sim_cure_function.R

test_that("multiplication works", {
  output <- hdcuremodels:::sim_cure(100, mu = 1, censor_mu = 3, reps = 1000,
                                    seed = 13)
  expect_equal(round(output[2], 6), 0.983344)
})

Try the hdcuremodels package in your browser

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

hdcuremodels documentation built on Aug. 8, 2025, 7:38 p.m.