VECM in R: Testing weak exogeneity and imposing restrictions

Question

I estimated VECM and would like to make 4 separate tests of weak exogeneity for each variable.

library(urca)
library(vars)