wk3-lecture.R