Lecture R_scripts