Nothing
test_that("diagnostics are working properly", {
xy <- owl:::randomProblem(100, 2, q = 1)
fit <- owl(xy$x, xy$y, diagnostics = TRUE, n_sigma = 1, sigma = 1)
expect_is(fit$diagnostics, "data.frame")
p <- plotDiagnostics(fit)
expect_s3_class(p, "trellis")
})
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.