x <- as.Date("2009-09-02")
wday(x) #4
wday(ymd(080101))
# 3
wday(ymd(080101), label = TRUE, abbr = FALSE)
# "Tuesday"
# Levels: Sunday < Monday < Tuesday < Wednesday < Thursday < Friday < Saturday
wday(ymd(080101), label = TRUE, abbr = TRUE)
# "Tues"
# Levels: Sunday < Monday < Tuesday < Wednesday < Thursday < Friday < Saturday
wday(ymd(080101) + days(-2:4), label = TRUE, abbr = TRUE)
# "Sun" "Mon" "Tues" "Wed" "Thurs" "Fri" "Sat"
# Levels: Sunday < Monday < Tuesday < Wednesday < Thursday < Friday < Saturday
x <- as.Date("2009-09-02")
yday(x) #245
mday(x) #2
yday(x) <- 1 #"2009-01-01"
yday(x) <- 366 #"2010-01-01"
mday(x) > 3
Run the code above in your browser using DataLab