En general, no se necesitan cópulas para calcular el VaR de la cartera. Puede utilizar el método histórico si dispone de series temporales de rendimientos para los activos de su cartera. Si tiene suficientes datos, esto le permitirá tener en cuenta el riesgo de correlación y la no normalidad de los rendimientos.
Ejemplo de código en R para una cartera igualmente ponderada sin asumir ninguna cópula o distribución (utilizando el paquete RMetrics y los datos de los índices LPP proporcionados con este paquete):
library(fPortfolio)
lppData <- 100*LPP2005.RET[,1:6]
eqWSpec <- portfolioSpec();
nAssets <- ncol(lppData)
setWeights(eqWSpec) <- rep(1/nAssets, times = nAssets)
setAlpha(eqWSpec) <- 0.05
ewPorfolio <- feasiblePortfolio (data = lppData, spec=eqWSpec);
print(ewPorfolio)
La salida:
Target Return and Risks:
mean mu Cov Sigma CVaR VaR
0.0431 0.0431 0.3198 0.3198 0.7771 0.4472
(Tenga en cuenta que esta no es probablemente la mejor manera de calcular el VaR de la cartera en R)
Vale la pena mencionar que si necesita utilizar cópulas, tendrá que hacer el cálculo del VaR de Montecarlo (es decir, muestrear la cópula y calcular el VaR en esos datos), ya que no hay soluciones de forma cerrada disponibles para el VaR para la mayoría de las clases de cópulas.
Y sí, la cópula gaussiana sufriría los mismos problemas que la estimación de la distribución normal multivariante. En lugar de la cópula gaussiana, puede probar la cópula t elíptica (pero tenga en cuenta que es simétrica) o la cópula empírica. Sí, la cópula gaussiana y otros supuestos de normalidad son muy criticados en muchos trabajos por subestimar los riesgos de cola.