tests/testthat/test-ReturnLevelClimatology.R

In MartinRoth/knmipluim: Return Levels for KNMI pluim

context("ReturnLevelClimatology")

library(knmipluim)

## TODO: Rename context
## TODO: Add more tests

test_that("Validate input", {
  expect_error(GetGevShape(c(1,2,3), "PWM"), "Method PWM not implemented.")
})

test_that("Regression test", {
  maxDat <- txDat[name == "tx260_1981_2010"]
  maxDat[, name := NULL]
  maxRetLevel <- ReturnLevelClimatology(maxDat, "tx", "max", kLoc = 15, kScale = 8, kShape = 4)
  minDat <- tnDat[name == "tn260_1981_2010"]
  minDat[, name := NULL]
  minRetLevel <- ReturnLevelClimatology(minDat, "tn", "min", kLoc = 15, kScale = 8, kShape = 4)
  expect_equal_to_reference(maxRetLevel, "ReturnLevelMaximaLMom.rds")
  expect_equal_to_reference(minRetLevel, "ReturnLevelMinimaLMom.rds")
})