data("CM_Factors")
#Example 1
VAR(RiskFactors, VARtype= 'unconstrained')
#Example 2
K <- nrow(RiskFactors)
Bcon <-matrix(0, nrow = K, ncol = K+1)
Bcon[,1:3] <- NaN
VAR(RiskFactors, VARtype= 'constrained', Bcon)
Run the code above in your browser using DataLab