R programming week 3 - Daily Ritual