Added to R script for week 1 lecture notes