Lecture123_code_smoothing.R