Nothing
test_that("`fdadist()` works", {
D <- fdadist(simulated30_sub$x, simulated30_sub$y)
expect_true(inherits(D, "dist"))
expect_equal(length(D), 435)
})
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.