tests/testthat/test-symdevplot.R

test_that("symdevplot", {
  skip_on_cran()
  data(CPFs, package="moocore")
  res <- vorob_t(CPFs, reference = c(2, 200))
  VD <- vorob_dev(CPFs, ve = res$ve, reference = c(2, 200))
  expect_snapshot_plot("symdevplot-CPFs-nlevels11", {
    symdevplot(CPFs, ve = res$ve, threshold = res$threshold, nlevels = 11)
  })
  expect_snapshot_plot("symdevplot-CPFs-nlevels200", {
    symdevplot(CPFs, ve = res$ve, threshold = res$threshold, nlevels = 200, legend.pos = "none")
  })
  expect_snapshot_plot("symdevplot-CPFs-heatcolors", {
    symdevplot(CPFs, ve = res$ve, threshold = res$threshold, nlevels = 11, col.fun = heat.colors)
  })
})

Try the mooplot package in your browser

Any scripts or data that you put into this service are public.

mooplot documentation built on June 8, 2025, 10:13 a.m.