ts_fil_emd {tspredit} | R Documentation |
EMD Filter
ts_fil_emd(noise = 0.1, trials = 5)
noise |
noise |
trials |
trials |
a ts_fil_emd
object.
# time series with noise
library(daltoolbox)
data(sin_data)
sin_data$y[9] <- 2*sin_data$y[9]
# filter
filter <- ts_fil_emd()
filter <- fit(filter, sin_data$y)
y <- transform(filter, sin_data$y)
# plot
plot_ts_pred(y=sin_data$y, yadj=y)