0
endDt<-as.Date("2012-10-1")
dts<-as.Date(c("2010-1-1", "2010-3-1", "2012-10-1"))

次のようなことをするにはどうすればよいですか。

endDts<-c() #an empty date vector

for each dt in dts
    append seq.Date(dt,endDt,by="3 months") to endDts
next dt

日付のベクトルをループしようとして問題に遭遇しました。dts

4

1 に答える 1

1

優れたコメントソリューションに加えて、次を使用できますmapply

mapply(seq.Date,dts, endDt,by="3 months")

[[1]]
 [1] "2010-01-01" "2010-04-01" "2010-07-01" "2010-10-01" "2011-01-01" "2011-04-01" "2011-07-01"
 [8] "2011-10-01" "2012-01-01" "2012-04-01" "2012-07-01" "2012-10-01"

[[2]]
 [1] "2010-03-01" "2010-06-01" "2010-09-01" "2010-12-01" "2011-03-01" "2011-06-01" "2011-09-01"
 [8] "2011-12-01" "2012-03-01" "2012-06-01" "2012-09-01"

[[3]]
[1] "2012-10-01"
于 2013-09-29T00:26:22.737 に答える