Function Smooth-Mean-4

Part of:

package cl-mathstats
( smooth-mean-4 < data > )

Smooths data&#39; by replacing each element with the mean of it, its left<br> neighbor, and its two right neighbors. The ends are handled by duplicating the<br> end elements. This function is not destructive; it returns a list the same<br> length as data,' which should be a sequence of numbers.