context("ggplot functions")
test_that("ggTermPlot works for gam objects", {
data(goodgam)
gg1 <- ggTermPlot(goodgam, xvar = "x1", data = goodgam$model)
expect_is(gg1, "gg")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.