### Empirical Mode Decompositionndata <- 3000tt2 <- seq(0, 9, length=ndata)xt2 <- sin(pi * tt2) + sin(2* pi * tt2) + sin(6 * pi * tt2)  + 0.5 * tt2try <- emd(xt2, tt2, boundary="wave")EMD分解的程序能否解读哈