tests/testthat/setup-scorepeak.R

In scorepeak: Peak Functions for Peak Detection in Univariate Time Series

data("ecgca102")
a <- ecgca102
b <- c(2, rep(1,4), 2:5, 4:1, rep(1,4), 3)
w <- 5
idx_lp <- which(detect_localmaxima(b, w))

w2 <- 51
lp2 <- detect_localmaxima(a, w2)
thr <- 0.03
thr2 <- 0.01

expect_equal_na_allowed <- function(x, y)
{
  expect_equal(x[!is.na(x)], y[!is.na(y)])
}