Running examples in ‘DecomposeR-Ex.R’ failed
The error most likely occurred in:

> ### Name: check.emd
> ### Title: Check an EMD object
> ### Aliases: check.emd
> 
> ### ** Examples
> 
> set.seed(50)
> 
> h <- rnorm(n = 1000)
> 
> dt <- seq_len(length(h))
> 
> alpha <- 0.95
> 
> for(i in dt[-1]) h[i] <- alpha *  h[i-1] + h[i]
> 
> set.seed(42)
> 
> em <- extricate(h, dt, nimf = 7, repl = 1, comb = 100, sifting = 4,
+                 factor_noise = 20, unit_noise = "native", speak = TRUE)
[1] "Stack: even, Mode: 1, Sifting: 1"
[1] "Stack: even, Mode: 1, Sifting: 2"
[1] "Stack: even, Mode: 1, Sifting: 3"
[1] "Stack: even, Mode: 1, Sifting: 4"
[1] "Stack: even, Mode: 2, Sifting: 1"
[1] "Stack: even, Mode: 2, Sifting: 2"
[1] "Stack: even, Mode: 2, Sifting: 3"
[1] "Stack: even, Mode: 2, Sifting: 4"
[1] "Stack: even, Mode: 3, Sifting: 1"
[1] "Stack: even, Mode: 3, Sifting: 2"
[1] "Stack: even, Mode: 3, Sifting: 3"
[1] "Stack: even, Mode: 3, Sifting: 4"
[1] "Stack: even, Mode: 4, Sifting: 1"
[1] "Stack: even, Mode: 4, Sifting: 2"
[1] "Stack: even, Mode: 4, Sifting: 3"
[1] "Stack: even, Mode: 4, Sifting: 4"
[1] "Stack: even, Mode: 5, Sifting: 1"
[1] "Stack: even, Mode: 5, Sifting: 2"
[1] "Stack: even, Mode: 5, Sifting: 3"
[1] "Stack: even, Mode: 5, Sifting: 4"
[1] "Stack: even, Mode: 6, Sifting: 1"
[1] "Stack: even, Mode: 6, Sifting: 2"
[1] "Stack: even, Mode: 6, Sifting: 3"
[1] "Stack: even, Mode: 6, Sifting: 4"
[1] "Stack: even, Mode: 7, Sifting: 1"
[1] "Stack: even, Mode: 7, Sifting: 2"
[1] "Stack: even, Mode: 7, Sifting: 3"
[1] "Stack: even, Mode: 7, Sifting: 4"
[1] "Stack: odd, Mode: 1, Sifting: 1"
[1] "Stack: odd, Mode: 1, Sifting: 2"
[1] "Stack: odd, Mode: 1, Sifting: 3"
[1] "Stack: odd, Mode: 1, Sifting: 4"
[1] "Stack: odd, Mode: 2, Sifting: 1"
[1] "Stack: odd, Mode: 2, Sifting: 2"
[1] "Stack: odd, Mode: 2, Sifting: 3"
[1] "Stack: odd, Mode: 2, Sifting: 4"
[1] "Stack: odd, Mode: 3, Sifting: 1"
[1] "Stack: odd, Mode: 3, Sifting: 2"
[1] "Stack: odd, Mode: 3, Sifting: 3"
[1] "Stack: odd, Mode: 3, Sifting: 4"
[1] "Stack: odd, Mode: 4, Sifting: 1"
[1] "Stack: odd, Mode: 4, Sifting: 2"
[1] "Stack: odd, Mode: 4, Sifting: 3"
[1] "Stack: odd, Mode: 4, Sifting: 4"
[1] "Stack: odd, Mode: 5, Sifting: 1"
[1] "Stack: odd, Mode: 5, Sifting: 2"
[1] "Stack: odd, Mode: 5, Sifting: 3"
[1] "Stack: odd, Mode: 5, Sifting: 4"
[1] "Stack: odd, Mode: 6, Sifting: 1"
[1] "Stack: odd, Mode: 6, Sifting: 2"
[1] "Stack: odd, Mode: 6, Sifting: 3"
[1] "Stack: odd, Mode: 6, Sifting: 4"
[1] "Stack: odd, Mode: 7, Sifting: 1"
[1] "Stack: odd, Mode: 7, Sifting: 2"
[1] "Stack: odd, Mode: 7, Sifting: 3"
[1] "Stack: odd, Mode: 7, Sifting: 4"
> 
> ## Not run: 
> ##D plot_emd(em, adapt.axis = TRUE)
> ## End(Not run)
> 
> check.emd(em, h)
✔ Testing if this is an 'emd' object
  Modes: 9
  Replicates: 1
  Time/Depth (dt) range: 1, 1000
  dt GCRD (Greatest Common Rational Divisor) computing;
  if error, consider increasing 'timelimit' parameter or rounding dt values;
  computing...............
✔ dt GCRD: 1 (computed in 0 sec)
✔ 1000 interpolated points for regular sampling
  1000 initial points
  Intensity (xy) range: -8.41, 10.3
✔ Range >> Integrity (3.35e-16)
✔ xy provided independently
✔ Parsimony (2.08) < 2.25
Error in if (is.na(last(xy))) { : the condition has length > 1
Calls: check.emd -> after.hours -> n.extrema -> extremist
Execution halted