在R中自动创建具有不同开始日期的日期序列

Question

我可以使用以下代码创建所需的日期序列:

DateTwoWeeks1 <- seq(as.Date("2010/8/6"), as.Date("2011/8/5"), by = "2 weeks")
DateTwoWeeks2 <- seq(as.Date("2010/8/7"), as.Date("2011/8/5"), by = "2 weeks")
DateTwoWeeks3 <- seq(as.Date("2010/8/8"), as.Date("2011/8/5"), by = "2 weeks")

但是,我想自动创建14个不同开始日期的日期序列.我希望有一个时间序列从2010年8月6日开始,下一个时间序列从7日开始,一直到2010年8月19日.

我该如何自动化？我尝试使用"粘贴"功能,但我无法使用以下代码:

for (i in 6:19){
TimeTwoWeeks[i] <- seq(as.Date(paste("2010/8/", i)), as.Date("2011/8/5"), by = "2 weeks")
}

非常感谢任何直接帮助或与其他网站/帖子的链接.

Answer 1

干得好:

TimeTwoWeeks <- lapply(as.Date("2010/8/6") + 0:13, 
                       function(X) seq(X, as.Date("2011/8/5"), by = "2 weeks"))