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