test_that("rateFactory returns proper values", {
expect_equal(rateFactory(list(gamma = 1, lambda_0 = 1))(t = c(0,0.25,0.5,1)), c(2,1.5,1,2))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.