test_that("Zero should be evolutionarily unstable", {
pars <- get_default_pars()
expect_false(is_stable(0, pars, init = c(1000, 1000)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.