tests/testthat/test_historical_binomial.R

In bayesCT: Simulation and Analysis of Adaptive Bayesian Clinical Trials

context("")
test_that("The historical_binomial are", {
  expect_equal(historical_binomial(y0_treatment = 10, y0_control = 12,
                                   N0_treatment = 29, N0_control = 25,
                                   discount_function = "weibull", alpha_max = 1,
                                   fix_alpha = "FALSE", weibull_scale = 0.135, weibull_shape = 3,
                                   method = "mc")$N0_control, 25)
  expect_equal(historical_binomial(y0_treatment = 10, y0_control = 12,
                                   N0_treatment = 29, N0_control = 25)$discount_function, "identity")
})