Calculer les intervalles de date et le nombre de jours dans une boucle

Question

J'essaie d'identifier la date de début et la date de fin 2 intervalles différents.

Chaque intervalle est défini comme:

• minimum: la date min de ma df.
• max: la date max moins un certain décalage fixe (1,2,3 semaines)

Pour deux simples décalages je l'ai écrit:

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)) 

Comment puis-je vectoriser cette procédure pour un nombre arbitraire de décalages? Disons que la définition d'un:

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

et imprimer chaque échantillon date de début et de fin, en ajoutant le nombre de jours dans chaque échantillon?

Answer 1

Cela pourrait vous donner la sortie que vous recherchez

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))