test_that("e.single output", {
expect_equal(e.single(1000, 1500, 1, normprob = T), c(1096, 1404))
expect_equal(e.single(1000, 1500, 1, normprob = F), c(1095, 1405))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.