ループの日付間隔と日数を計算します

Question

開始日と終了日を2つの異なる間隔で特定しようとしています。

各区間は、次のように定義されます

• 最小：私のDFの分日付。
• 最大：最大日付マイナス私が書いた単純な二ラグのためのいくつかの固定ラグ（1,2,3週）

：

df <- sample(seq(as.Date('1999/01/01'), as.Date('2000/01/01'), by="day"), 150) 
dates <- as.data.frame(df) 


end_1week <- max(df) - weeks(1) 
min <- min(df) 


end_2week <- max(df) - weeks(2) 
min <- min(df) 

print(paste('Sample 1 starts from',min,'to', end_1week)) 
print(paste('Sample 2 starts from',min,'to', end_2week)) 

はどのようにして、任意の数のために、この手順をベクトル化することができます遅れの？ のは、定義しましょう：

lags <- (1,2,4,8,12) 

、各サンプルの日数を加算し、各サンプルの開始日と終了日を印刷？

Answer 1

これは、あなたが

library(lubridate) 

df <- sample(seq(as.Date('1999/01/01'), as.Date('2000/01/01'), by="day"), 150) 
dates <- as.data.frame(df) 

lags <- c(1,2,4,8,12) 
min <- min(df) 
end_weeks <- max(df) - weeks(lags) 

print(paste('Sample',lags,'starts from',min,'to',end_weeks))