Update day-of-week.R