tests/testthat/test-gpdRangeFit.R

context("gpdRangeFit")

test_that("gpdRangeFit behaves as it should", {
  skip_on_cran()
  skip_on_travis()
  par(mfrow=c(2,1))
  res <- gpdRangeFit(rain, umin=0, umax=50, nint=20)
  plot(res, pch=16, main=c("Figure 4.2 of Coles (2001)",""), addNexcesses=FALSE)
  expect_that(names(res), equals(c("th", "par","hi","lo","data")),
              label="gpdRangeFit: returned list with correct names")
}
)

Try the texmex package in your browser

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

texmex documentation built on May 2, 2019, 5:41 a.m.