context("Calculate weighted mean/variance/standard deviation")
test_that("weighted returns a 3 object list", {
x = weighted(list(x = rnorm(10), p=runif(10)))
is.list(x) && length(x) == 3
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.