var_models code snippets in r

calculate rmse for a list of var models var_models on r in r