context("test-rbind")
test_that("multiplication works", {
x <- factor(c("a", "b"))
y <- factor(c("c", "d"))
z <- factor(c("a", "b", "c", "d"))
expect_equal(2 * 2, 4)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.