Nothing
# Test overview() & methods
test_that("overview works for a GAM", {
expect_silent(ovr <- overview(m_gam))
expect_s3_class(ovr, "tbl_df")
expect_s3_class(ovr, "overview")
})
test_that("overview works for a GAMM", {
expect_silent(ovr <- overview(m_gamm))
expect_s3_class(ovr, "tbl_df")
expect_s3_class(ovr, "overview")
})
test_that("overview works for a BAM", {
expect_silent(ovr <- overview(m_bam))
expect_s3_class(ovr, "tbl_df")
expect_s3_class(ovr, "overview")
})
test_that("print() output is as expected for GAM", {
expect_snapshot({
print(overview(m_gam))
})
expect_snapshot({
print(overview(m_gam, stars = TRUE))
})
})
test_that("print() output is as expected for GAMM", {
expect_snapshot({
print(overview(m_gamm))
})
expect_snapshot({
print(overview(m_gamm, stars = TRUE))
})
})
test_that("print() output is as expected for BAM", {
expect_snapshot({
print(overview(m_bam))
})
expect_snapshot({
print(overview(m_bam, stars = TRUE))
})
})
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.