Nothing
test_that("return tipping point", {
expect_equal(
unname(get_tipping_points(
tipmap_data = load_tipmap_data("tipdat.rds"),
quantile = c(0.025, 0.05, 0.1, 0.2)
)),
c(0.750, 0.475, 0.220, 0.040)
)
})
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.