var-models code snippets in r

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