Nothing
test_that("Integral of exp(-a*x) on [0,Inf)", {
f <- function(x, a) exp(-a*x)
a <- 0.1
result <- deformula.zeroinf(f, a=a)
expect_equal(result$value, 1/a)
a <- 0.2
result <- deformula.zeroinf(f, a=a)
expect_equal(result$value, 1/a)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.