Replace each element by the mean of values in a clipped neighborhood of radius r (1D/2D lists images and Audio objects)
MeanFilter[data, r]
MeanFilter[data, {r1, r2, …}]
MeanFilter[{1, 2, 3, 2, 1}, 1]
→ {3/2, 2, 7/3, 2, 3/2}MeanFilter[{0, 3, 8, 2}, 1]
→ {3/2, 11/3, 13/3, 5}MeanFilter[{a, b, c, d}, 1]
→ {(a + b)/2, (a + b + c)/3, (b + c + d)/3, (c + d)/2}