serial(x, lags.pt = 16, lags.bg = 5)varestvec2varvarcheckhtesthtesthtestVAR, vec2var, plotdata(Canada)
var.2c <- VAR(Canada, p = 2, type = "const")
serial(var.2c, lags.pt = 16, lags.bg = 5)Run the code above in your browser using DataLab