CVaR( Valor en Riesgo Condicional)

Últimas entradas de Victor A.Rico (ver todo)
 
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 una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *