tests/testthat/test-gpdRangeFit.R

In texmex: Statistical Modelling of Extreme Values

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=19)
  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")
}
)