r - R の休日 NYSE に応じた平日の差分時間

Question

営業日のみのdifftimeを見つけようとしています。休日NYSEカレンダーに従ってdifftimeを計算したい。difftime 関数を使用すると、週末と休日が回答に含まれ、データセットには営業日のデータのみが含まれますが、difftime を使用する場合は、何らかの方法で非営業日を差し引く必要があります。

A は 0 と 1 のベクトルであり、0 または 1 で何日間の期間を見つけたいと考えています。実行 1 の期間は 35 であると想定され、49 になります (1990 年 1 月からの稼働日)。

df <- data.frame(Date=(dates), A)


setDT(df)
df <- data.frame(Date=(dates), A)

DF1 <- df[, list(A = unique(A), duration = difftime(max(Date),min(Date), holidayNYSE
(year=setRmetricsOptions(start="1990-01-01", end="2015-31-12")))), by = run]
DF1
     run   A duration

 1:    1    1  49 days
  2:   2    0  22 days
  3:   3    1  35 days
  4:   4    0  27 days
  5:   5    1  14 days
 ---                  
291: 291    1   6 days
292: 292    0  34 days
293: 293    1  10 days
294: 294    0  15 days
295: 295    1  29 days