tests/testthat/test_historical_survival.R

In thevaachandereng/BACT: Simulation and Analysis of Adaptive Bayesian Clinical Trials

context("")
test_that("The historical_normal are", {
  expect_equal(historical_survival(time       = rexp(10, 1),
                                   treatment  = rep(1, 10),
                                   event      = rbinom(10, 1, 0.5),
                                   discount_function = "weibull", alpha_max = 1,
                                   fix_alpha = "FALSE", weibull_scale = 0.135, weibull_shape = 3,
                                   method = "mc")$treatment0, rep(1, 10))
  expect_equal(historical_survival(time               = rexp(10, 1),
                                   treatment          = rep(1, 10),
                                   event              = rbinom(10, 1, 0.5),
                                   discount_function  = "weibull")$discount_function, "weibull")
})