Подсчитайте количество пятниц или понедельников в месяце в R
Я хотел бы функцию, которая считает количество конкретных дней в месяц ..
то есть .. ноябрь '13 -> 5 пятниц .. в то время как 13 декабря вернется 4 пятницы ..
Есть ли элегантная функция, которая вернула бы это?
library(lubridate)
num_days <- function(date){
x <- as.Date(date)
start = floor_date(x, "month")
count = days_in_month(x)
d = wday(start)
sol = ifelse(d > 4, 5, 4) #estimate that is the first day of the month is after Thu or Fri then the week will have 5 Fridays
sol
}
num_days("2013-08-01")
num_days(today())
Что было бы лучшим способом сделать это?