Nothing
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)])
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.