Неэффективно: вычисление функции импульсного отклика с использованием оценочных коэффициентов R

Question

Как я могу оценить функцию импульсного отклика, используя оценочные коэффициенты уменьшенной формы VAR, но устанавливая все коэффициенты одной переменной в 0 в R?

Любая помощь будет принята с благодарностью!