Nothing
test_that("scatteR catches Monotonic", {
d <- scatteR(measurements = c("Monotonic" = 1),n_points = 25,init_points = 5)
r <- scagnostics::scagnostics(d)
print(r)
expect_lte(abs(r["Monotonic"]-1.0),0.05)
})
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.