minor
add smoother.R