nsim <- 10 test_that("run simulation", { expect_equal(nrow(run_sim(nsim = nsim)), 5 * nsim) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.