context("counts")
test_that("counts", {
x <- data.frame(x = 1:10, y = 1:10)
expect_equal(sum(WeightedCounts(x$x, x$y)), sum(1:10))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.