Calculating Lagged Exponential Moving Average (EMA) of a Time Series with R