Improved Moving Average R Function