I\'m using a sample of this dataset below (data) to create an SVAR model using the svars package
data
svars
data <- structure(c(-1.8730839872990