tests/testthat/test_run_simulation.R

nsim <- 10
test_that("run simulation", {
  expect_equal(nrow(run_sim(nsim = nsim)), 5 * nsim)
})
stijnmasschelein/simcompl documentation built on May 30, 2019, 5:43 p.m.