VaR method in R