test_that("output is numeric vector", {
expect_vector(sim_nhpp(lambda = function(x) abs(sin(x)), min = 0, max = 10, M = 1), ptype = numeric())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.