Nothing
context("Test 'erf()' function")
test_that("'erf()' is ok", {
x <- rnorm(10)
expect_identical(erf(c(x, NA)), c(2 * stats::pnorm(x * sqrt(2)) - 1, NA))
})
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.