Nothing
prior <- rep(1 / 100, 100)
posterior <- runif(100)
posterior <- posterior / sum(posterior)
re <- relative_entropy(prior, posterior)
test_that("multiplication works", {
expect_type(re, "double")
expect_length(re, 1L)
expect_gt(re, 0)
expect_error(relative_entropy(prior, c(prior, prior)))
expect_error(relative_entropy(prior, runif(100)))
})
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.