CVaR( Valor en Riesgo Condicional) - Finanzas Cuantitativas en Español

Acerca de
Últimas entradas

Victor A.Rico

Diplomado en Ciencias Empresariales y Operador del Mercado Español de Futuros y Opciones

Últimas entradas de Victor A.Rico (ver todo)

Medidas de Forma : Asimetría - enero 3, 2025
Medidas Estadísticas de Dispersión Relativa - junio 11, 2024
Modelos SARIMA(Arima Estacionales).¿Qué son y cómo usarlos para Predecir? - enero 4, 2024

El CVAR( Valor en Riesgo Condicional) es una medida estadística usada en finanzas para cuantificar el riesgo. Esta medida tiene como objetivo mitigar ciertos defectos que tiene el VAR(Valor en Riesgo). Y la podéis usar tanto en estrategias de trading, como para analizar series de activos financieros, también se estáis creando carteras etc.

Su cálculo es relativamente sencillo donde lo que haremos será hacer un promedio de aquellas pérdidas que superen al VaR , de manera que nuestra medición del riesgo será más completa y coherente. En este vídeo hago una explicación sobre el CVAR y vemos ejemplos de su cálculo en R. Más abajo tienes el código usa para que puedas copiarlo y practicar.

CÓDIGO EN R DEL VIDEO

# video cvar oro

####

library(quantmod)

#install.packages(«fImport»)
library(«fImport»)

#install.packages(«tseries»)
library(tseries)

#install.packages(«PerformanceAnalitycs»)
#library(PerformanceAnalitycs)

getSymbols(«GC=F»,src=»yahoo»,from = «2015-01-01»)

#getSymbols(«TSLA»,from=»2015-01-01″,to=»2021-02-15″,src=»yahoo»)

oro_pr <- na.omit(`GC=F`[,4]) # precio cierre

chartSeries(oro_pr,up.col=»blue»,theme=»white») # Plot the Time Series of the Stock

retornos_oro<-na.omit(returns(oro_pr))

chartSeries(retornos_oro,up.col=»red»,theme=»white») # Plot the Time Series of the Log-Returns

hist(retornos_oro)

obs <- length(retornos_oro)

##### Calculo del CVAR

#1 VAR

# CVAR

?quantile

# var ret oro 5

# Percentil 5 ____ o el 95 si le damos la vuelta

VaR_oro=quantile(retornos_oro,0.05,na.rm = T)
VaR_oro

#VaR_oro=quantile(ret_oro,0.95,na.rm = T)
#VaR_oro

which(retornos_oro<=VaR_oro)

retornos_oro[18]
retornos_oro[1428]
min(retornos_oro)

CVAR_oro=mean(retornos_oro[retornos_oro<=VaR_oro])
CVAR_oro

VaR_oro

chartSeries(retornos_oro,up.col=»blue»,theme=»white»)
abline(h=VaR_oro,col=»red»,lwd=1)

abline(h=VaR_oro,col=»red»,lwd=1)
abline(h=CVAR_oro,col=»red»,lwd=2)

###

ret_oro= – (retornos_oro)

chartSeries(ret_oro,up.col=»red»,theme=»white») # Plot the Time Series of the Log-Returns

VaR_oro_95=quantile(ret_oro,0.95,na.rm = T)
VaR_oro_95

CVAR_oro_95=mean(ret_oro[ret_oro>=VaR_oro_95])
CVAR_oro_95

chartSeries(ret_oro,up.col=»blue»,theme=»white»)
abline(h=VaR_oro_95,col=»red»,lwd=1)
abline(h=CVAR_oro_95,col=»red»,lwd=2)

Deja un comentario Cancelar respuesta