[ordered factor for datetime] day, month, time #r
day = ordered(day, levels = c("SUN", "MON", "TUE", "WED", "THU", "FRI", "SAT"))
month = ordered(month, levels = toupper(month.abb))
time = ordered(time, levels = c("7AM", "8AM", "9AM", "10AM", "11AM", "12AM", "1PM", "2PM", "3PM", "4PM", "5PM", "6PM", "7PM", "8PM", "9PM", "10PM", "11PM", "12PM", "1AM", "2AM", "3AM", "4AM", "5AM", "6AM") )