context("miscellaneous")
test_that("signc works", {
expect_identical(signc(-1:1), c("-", "0", "+"))
expect_identical(signc(-1:1, "|"), c("-", "|", "+"))
expect_error(signc("1"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.