Nothing
context("summary")
test_that("summary.bas", {
data(Hald)
hald.bas <- bas.lm(Y ~ .,
prior = "BIC",
modelprior = uniform(), data = Hald
)
expect_length(summary(hald.bas), 60)
expect_null(print(hald.bas))
})
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.