获取正确添加日期

Question

我有一个3000 x 1000矩阵时间序列数据库，可以追溯到14年，每三个月更新一次。我预测9个月使用这个数据仍然保持3200 x 1100矩阵（请注意，这些是粗略的数字）。

在预测过程中，我需要适当地计算变量Year和Month。我正在尝试自动化这个过程，所以我不再需要弄乱代码了;我可以每三个月运行一次代码并将投影上传到我们的数据库中。

以下是我现在使用的代码。正如我上面所说的，我不想每隔三个月就查看一次数据或代码。现在其他一切都按照计划进行，但我仍然必须确保日期得到适当的注释。由于名称的性质，foo变量因隐私目的而更改。

projection <- rbind(projection, data.frame(foo=forbar, bar=barfoo, 
+                                                    Year=2012, Month=1:9, 
+                                                    Foo=as.vector(fc$mean)))

Answer 1

我不确定年/月的确切来源，但是如果你想参考这些数字的当前日期，这里有一个选项（使用精彩包，lubridate）：

library(lubridate)
today = Sys.Date()
projection <- rbind(projection, data.frame(foo=foobar, bar=barfoo,
                                       year = year(today),
                                       month = sapply(1:9,function(x) month(today+months(x))),
                                       Foo = as.vector(fc$mean)))

我希望这是你正在寻找的。