context("compute_density")
x <- compute_density(mtcars[, 1], mtcars[, 2])
test_that("compute_density works", {
expect_is(x, "numeric")
expect_equal(length(x), nrow(mtcars))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.