library(EMD) ### Empirical Mode Decomposition
ndata <- 3000
tt2 <- seq(0, 9, length=ndata)
xt2 <- sin(pi * tt2) + sin(2* pi * tt2) + sin(6 * pi * tt2) + 0.5 * tt2
try <- emd(xt2, tt2, boundary="wave")
Ошибка в emd (xt2, tt2, border = "wave"): неиспользованный аргумент (border = "wave")