R program application of VAR, SVAR, SVEC model (English version)