  var0 <- VAR(DVARmat, p = 0, type ="const", season = 00)  restrict <- matrix (c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,                        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,                        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),                      nrow = 0, ncol = 00, byrow = T)  var0_restrict <- coef(restrict(var0, method ="man", resmat = restrict))  