R言語で土日祝日を除いた日数の計算


R言語で土日祝日を除いた日数の計算に使用できる関数はありますか？
引数に「開始日」「終了日」を指定すると、その期間の日数を計算するようなイメージです。祝日データは手動で用意する前提です。




祝日のデータをどの様に保持しているのか不明ですが、ここでは年月日を表す文字列のベクタだとします。

[code]

    # 2016年の場合、3月21日が振替休日になっていますが、それは含めていません
    > holidays = c("2016/1/1", "2016/1/11", "2016/2/11", "2016/3/20", "2016/4/29", 
                   "2016/5/3", "2016/5/4", "2016/5/5", "2016/7/18", "2016/8/11", 
                   "2016/9/19", "2016/9/22", "2016/10/10", "2016/11/3", "2016/11/23", 
                   "2016/12/23")
    
    # 2016年1月1日から2016年10月23日までのシーケンス(1日単位)を作成
    > s = seq.Date(as.Date("2016/1/1"), as.Date("2016/10/23"), by="day")
    # format(s, "%u") は曜日を数値で返します。月曜日が 1、日曜日が 7 になります
    > length(s[format(s, "%u") < 6 & !format(s, "%Y/%-m/%-d") %in% holidays])
    [1] 199
    
[/code]

