expect_same_length <- function(a, b)
expect_equal(length(a), length(b))
is.positive <- function(x)
x > 0
is.negative <- function(x)
x < 0
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.