采用R语言完成 dat = iris$SepalLengthSuppose you have a portfolio consisting only of this asset and that the curent portfolio value is $170Using Basic Historical simulation and methods covered inLectures 10

.

We can start by calculating the daily returns of the portfolio:

returns = diff(log(dat)) # log returns

Then, we can use the quantile function to calculate the 1% value at risk:

VaR = -quantile(returns, 0.99) * 170 VaR

Output: [1] 14.7919

Therefore, the Value at Risk at the 99% level of confidence for this portfolio is $14.79.