Nothing
test_that("brightness works", {
v <- sample.int(100)
expect_equal(brightness_vec(v), var(v) / mean(v))
m <- matrix(v, nrow = 5)
expect_equal(brightness_rows(m), apply(m, 1, brightness_vec))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.