tests/testthat/test-FindPevents.R

context("FindPevents")

test_that("FindPevents works", {

  data("SevernTS")
  tableP <- FindPevents(SevernTS$P[1:1000])

  expect_equal(dim(tableP), c(6, 13))

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