library(vars)
data(Canada)
summary(Canada)
plot(Canada, nc = 2)