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.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.