Smoothing or moving average use ksmooth …

Smoothing or moving average
use ksmooth()
when kernel is “box”, it is the same as moving average by filter() except that ksmooth() can handle the edges better.
Example
ksmooth(data, kernel = “box”, bandwidth = 3)