## Function Smooth-Mean-4

(

**smooth-mean-4** < data > )

Smooths ` data' 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.