Create RSG.Smooth.R

Function for smoothing a vector of numbers into increasing or decreasing order.