Nothing
test_that("multiplication works", {
model_fit(SCK_dataset[1:5, 1:2], 2, "SCK", 20, 50, 3.9E-9, "names") %>% expect_error()
})
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.