run_var: Calculate the VAR model and apply restrictions

Description

This function calls the vars::var function to calculate the VAR model and applies restrictions if needed. We set the intercept to 1 for restricted equations because calculations go wrong otherwise (this is a bug in the vars library).