tests/testthat/test-function-simulate_treatment.R

test_that("simulate_treatment() works", {

  expect_error(simulate_treatment())
  
  confDir <- system.file("extdata/configs/dummy", package = "kwb.qmra")
  
  config <- config_read(confDir)
  
  simulate_treatment(config, wide = FALSE)
})
KWB-R/kwb.qmra documentation built on June 15, 2021, 11:14 p.m.