context("compare") # Tests for the "compare" function
dat1 <- c(1,1,1,1,1)
dat2 <- c(1,2,1,1,1)
expect_true(compare(dat1))
expect_false(compare(dat2))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.