Историческое моделирование VaR в расчете R: VaR дает ненадежный результат (риск более 100%)

Question

Я пытаюсь посчитать VaR используя метод исторического моделирования для S&P500, Я использовал PerformanceAnalytics пакет с

VaR(P1[1:1000], p =0.95, method = "historical")

но я получаю сообщение об ошибке, как показано ниже:

Расчет VaR дает ненадежный результат (риск более 100%) для столбца: 1: -1,68435909175

Данные, которые я использовал, рассчитываются в журнале as =LN(Today's close/Yesterday's close)*100 и когда я вычисляю VaR с использованием percentile функция (PERCENTILE(B2:B1001,0.05)), Я получаю значение -1.684 как указано выше. Я понимаю, что пакет был написан с учетом возвратов, но я не уверен, что концептуально допустил ошибку в моих вычислениях или ошибка произошла из-за того, что я использовал возврат журналов.

В этом случае, было бы лучше использовать нормальные возвращения по возвращениям журнала?

Answer 1

По-видимому VaRиспользует десятичный доход, а не процент. См. То же сообщение при передаче процента возврата к этой функции. Или использовать quantile,

> data(edhec)
> VaR(edhec[,1], p=.95, method="historical")
    Convertible Arbitrage
VaR              -0.01916
> quantile(edhec[,1],c(.05,.95))
      5%      95% 
-0.01916  0.02679 
> VaR(edhec[,1]*100, p=.95, method="historical")
VaR calculation produces unreliable result (risk over 100%) for column: 1 : 1.916
    Convertible Arbitrage
VaR                    -1
> quantile(edhec[,1]*100,c(.05,.95))
    5%    95% 
-1.916  2.679