Update smoother.R