Internationale aandelenportefeuille

Kwantiatief Risicobeheer in R

Alexander McNeil

Instructor

Stel: een Britse belegger heeft haar vermogen belegd:
- 30% FTSE, 40% S&P 500, 30% SMI
5 risicofactoren: FTSE-, S&P 500- en SMI-indexen, GBP/USD- en GBP/CHF-wisselkoers

riskfactors <- merge(FTSE, SP500, SMI, USD_GBP, CHF_GBP, all = FALSE)["/2012-12-31", ]

Risicofactoren weergeven

plot.zoo(riskfactors)

Eenvoudige methode, veel gebruikt in de financiële sector
Resample historische risicofactorrendementen en bekijk hun effect op de huidige portefeuille
De verliesoperator toont het effect van verschillende risicofactorrendementen op de portefeuille
Verliesoperator-functies worden in de oefeningen gegeven

losses <- rnorm(100)
losses_o <- sort(losses, decreasing = TRUE)
head(losses_o, n = 8)

1.836163 1.775163 1.745427 1.614479 1.602120 1.590034 1.483691 1.408354

quantile(losses, 0.95)

     95% 
1.590638

qnorm(0.95)

1.644854

mean(losses[losses > quantile(losses, 0.95)])

1.714671

ESnorm(0.95)

2.062713

Kwantiatief Risicobeheer in R