R/lags.R

#' @export

lags <- function(var, n = 10){
  indices <- seq(n)
  map(indices, ~ quo(lag(!!rlang::sym(var), !!.x)) ) %>%
    set_names(sprintf("lag_%s_%02d", var, indices))
}
rosseji/rutils documentation built on May 17, 2019, 11:16 p.m.