Историческое моделирование VaR in 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