Nothing
context("Error message for negative weights.")
test_that("1e3 samples from cauchy",{
expect_error(chopthin(rcauchy(1e3),N=100,eta=4,normalise=FALSE),"Negative weights not allowed")
})
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.