powered by
(Beta verson of) Extends theexponential smoothing of a time series to a histogram time series,using L2 Wasserstein distance.
HTS.exponential.smoothing(HTS, alpha = 0.9)
a list with the results of the smoothing procedure.
A HTS object (a histogram time series).
HTS
a number between 0 and 1 for exponential smoothing
smoothing.alpha
the alpha parameter
AveragedHTS
The smoothed HTS
mov.expo.smooth <- HTS.exponential.smoothing(HTS = RetHTS, alpha = 0.8) # a show method for HTS must be implemented you can see it using # str(mov.expo.smooth$AveragedHTS)
Run the code above in your browser using DataLab