tests/testthat/test-EmpiricalCN.R

context("EmpiricalCN")

test_that("EmpiricalCN works", {

  data("SevernTS")
  severnCN <- EmpiricalCN(tseries = SevernTS[1:1000,])

  expect_equal(severnCN, 76)

})
cvitolo/curvenumber documentation built on April 19, 2022, 3:33 a.m.