Nothing
test_that("objective Bayes functions work", {
lower_bound <- sum(apples[11:20,2])
subset_apples <- apples[c(1, 11:20), ]
expect_is({y <- objective_bayes_geometric(apples[11:20, ], iterations=5, plot=F, answers=T, output=F); y},
"list")
expect_gte(y$results["mean.C"],
"list")
})
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.