Create count_days.R