test_that("Gradient is zero", { G <- get_gradient(0, get_default_pars(), c(1000, 1000)) expect_equal(G, 0) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.