Forecasting future quarters using SMA or EMA in r by group

Question

I am trying to forecast using the SMA function or EMA function (TTR Package https://www.rdocumentation.org/packages/TTR/versions/0.24.2/topics/SMA) in r for time series. Here is