Function Smooth-Mean-4
(
smooth-mean-4 < data > )
Smooths `data' by replacing each element with the mean of it, its left
neighbor, and its two right neighbors. The ends are handled by duplicating the
end elements. This function is not destructive; it returns a list the same
length as `data,' which should be a sequence of numbers.