Nothing
context("Test nona")
test_that("nona works correctly", {
x <- c(NA, 1, 0)
y <- nona(x)
expect_that(y, equals(c(0,1,0)))
})
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.