tests/testthat/test-image.R

In BAS: Bayesian Variable Selection and Model Averaging using Bayesian Adaptive Sampling

context("image.bas")

test_that("test image plots", {
  data("Hald")
  hald.ZSprior <- bas.lm(Y ~ ., data = Hald, prior = "ZS-null")
  expect_null(image(hald.ZSprior, drop.always.included = TRUE))
  expect_null(image(hald.ZSprior, drop.always.included = FALSE))
  expect_null(image(hald.ZSprior, rotate = FALSE))
  expect_null(image(hald.ZSprior, prob = FALSE))
  expect_null(image(hald.ZSprior, intensity = FALSE))
  expect_null(image(hald.ZSprior, intensity = TRUE, color = "blackandwhite"))
})