Create day3.R