Computes the moving average of a list
MovingAverage[list, r]
MovingAverage[list, {w1, w2, …, w r}]
MovingAverage[{a, b, c, d, e}, 2]
→ {(a + b)/2, (b + c)/2, (c + d)/2, (d + e)/2}MovingAverage[{a, b, c, d, e}, {1, 2}]
→ {(a + 2*b)/3, (b + 2*c)/3, (c + 2*d)/3, (d + 2*e)/3}MovingAverage[{1, 5, 7, 3, 6, 2}, 3]
→ {13/3, 5, 16/3, 11/3}