context("Test nona")
test_that("nona works correctly", {
x <- c(NA, 1, 0)
y <- nona(x)
expect_that(y, equals(c(0, 1, 0)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.