## Daily series for two micro-regions
d <- data.frame(
date = as.Date("2023-01-01") + 0:9,
micro_code = rep(c("A", "B"), each = 5),
tmin = rnorm(10, 10, 2),
pdsi = rnorm(10)
)
## Create lags 1 to 3 for tmin and pdsi
lagged <- lag_cov(
data = d,
name = c("tmin", "pdsi"),
time = "date",
group = "micro_code",
lag = c(1:3)
)
## Only lagged columns (matrix),
lag_only <- lag_cov(
data = d, name = "tmin", time = "date",
lag = c(1:3), add = FALSE
)
Run the code above in your browser using DataLab