tests/testthat/test-simulate_data.R

In lnmixsurv: Bayesian Mixture Log-Normal Survival Model

simdata <- simulate_data(n = 4000, percentage_censored = 0.7, starting_seed = 10)

test_that("censored parameter is working", {
  expect_equal(sum(simdata$data$delta == 0)/nrow(simdata$data), 0.7,
               tolerance = 1)
})

test_that("number of observations is as expected", {
  expect_equal(4000, nrow(simdata$data))
})