tests/testthat/test-plot.migpd.R

context("plot.migpd")

test_that("plot.migpd behaves as it should", {
  skip_on_cran()
  skip_on_travis()
    par(mfrow=c(2,2))
  mod <- migpd(winter, mqu=.7, penalty = "none")
  res <- plot(mod)
  expect_that(res, equals(NULL), label="plot.migpd:successfulexecution")
}
)

Try the texmex package in your browser

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

texmex documentation built on Nov. 17, 2017, 5:11 a.m.