Create expsmooth.r