R/mlag2.R

In common2016/FAVAR: Bayesian Analysis of a FAVAR Model

mlag2 <- function(FY, plag = 2){
  for (i in 1:plag) {
    if (i == 1){
      ans <- apply(FY, 2, dplyr::lag, n = i)
    }else {
      ans <- cbind(ans, apply(FY, 2, dplyr::lag, n = i))
    }
  }
  return(ans)
}