Which code to use in order to run Vector Autoregression in R?

Question

I want to run VAR model in R. I found the following source how to do https://towardsdatascience.com/a-deep-dive-on-vector-autoregression-in-r-58767ebb3f06#:~:text=Christophe