datetime - 计算R中2个日期之间的工作日数

Question

我正在尝试编写R函数来计算两个日期之间的工作日数。例如，Nweekdays('01 / 30/2011'，'02/04/2011')等于5。

类似于this question。谢谢!

/ edit:@J。温彻斯特的答案很好，但我想知道是否有人可以想到一种矢量化方法，以便它可用于2列日期。谢谢!
/ edit 2:再次感谢!

Answer 1

Date1 <- as.Date("2011-01-30")
Date2 <- as.Date("2011-02-04")    
sum(!weekdays(seq(Date1, Date2, "days")) %in% c("Saturday", "Sunday"))

编辑:和扎克说，让有 Vectorize :)

Dates1 <- as.Date("2011-01-30") + rep(0, 10)
Dates2 <- as.Date("2011-02-04") + seq(0, 9)
Nweekdays <- Vectorize(function(a, b) 
  sum(!weekdays(seq(a, b, "days")) %in% c("Saturday", "Sunday")))
Nweekdays(Dates1, Dates2)