data(PortFosterEvent)
trials <- 10
nimf <- 10
noise.amp <- 6.4e-07
trials.dir <- "test"
set.seed(628)
#Run EEMD (this may take some time)
if (FALSE) EEMD(sig, tt, noise.amp, trials, nimf, trials.dir = trials.dir)
#Compile the results
if (FALSE) EEMD.result <- EEMDCompile(trials.dir, trials, nimf)
#Plot the IMFs
time.span <- c(5, 10)
imf.list <- 1:3
os <- TRUE
res <- TRUE
if (FALSE) PlotIMFs(EEMD.result, time.span, imf.list, os, res)
Run the code above in your browser using DataLab