# Exponential moving average smoothing on a noisy series
# Load package and example data
library(daltoolbox)
data(tsd)
# Inject an outlier to illustrate smoothing effect
tsd$y[9] <- 2 * tsd$y[9]
# Define EMA filter, fit and transform the series
filter <- ts_fil_ema(ema = 3)
filter <- fit(filter, tsd$y)
y <- transform(filter, tsd$y)
# Compare original vs smoothed series
plot_ts_pred(y = tsd$y, yadj = y)
Run the code above in your browser using DataLab