tests/testthat/test-bam-ar.R

In gavinsimpson/gratia: Graceful 'ggplot'-Based Graphics and Other Functions for GAMs Fitted Using 'mgcv'

## Test bam() with AR(1) models

# models created in setup.R
#  * m_ar1 simple model with single time series with rho = 0.6
#  * m_ar1_by factor by model with two series, rho = 0.6, n = 400 in each

test_that("draw works for a simple BAM with AR 1", {
  expect_silent(plt <- draw(m_ar1, rug = FALSE))

  # skip_on_ci() # testing without as moved to mac os x
  expect_doppelganger("draw bam ar 1 single series", plt)
})

test_that("draw works for a factor by BAM, 2 series, with AR 1", {
  expect_silent(plt <- draw(m_ar1_by, rug = FALSE))

  # skip_on_ci() # testing without as moved to mac os x
  expect_doppelganger("draw bam ar 1 factor by", plt)
})