Internationell aktieportfölj

Kvantitativ riskhantering i R

Alexander McNeil

Instructor

Tänk dig en brittisk investerare som har placerat sitt kapital:
- 30% FTSE, 40% S&P 500, 30% SMI
5 riskfaktorer: indexen FTSE, S&P 500 och SMI, samt växelkurserna GBP/USD och GBP/CHF

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

Visa riskfaktorerna

plot.zoo(riskfactors)

Enkel metod som används allmänt inom finansbranschen
Sampla om historiska riskfaktoravkastningar och undersök deras effekt på den aktuella portföljen
Förlustoperatorn visar hur olika riskfaktoravkastningar påverkar portföljen
Funktioner för förlustoperatorn tillhandahålls i övningarna

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

Kvantitativ riskhantering i R