VAR.R code added for model selection.