tests/testthat/test-gg.R

context("ggplot functions")

test_that("ggTermPlot works for gam objects", {
  data(goodgam)
  gg1 <- ggTermPlot(goodgam, xvar = "x1", data = goodgam$model)
  expect_is(gg1, "gg")
})
markwh/markstats documentation built on May 21, 2019, 12:26 p.m.