R的一个月的周末

Question

我正在尝试为我的Arima模型准备一个xreg系列，我会在一个月内使用一些周末。我可以找到一年的结果，但是当它超过一年时，通常是，我找不到方法。
这是我到目前为止所做的事情。

dates <- seq(from=as.Date("2001-01-01"), to=as.Date("2010-12-31"), by = "day")
wd <- weekdays(dates)
aylar <- months(dates[which(wd == "Sunday" | wd == "Satuday")])

table(aylar)

我想要的是收集所有月份＆＃39;周末不仅仅基于几个月而且基于几年。因此，我可以使用原始预测系列获得相同长度的系列。

Answer 1

这是我的解决方案：

{{1}}

我希望这是你工作的起点。