Raportul Sharpe (anualizat)

Introducere în analiza portofoliului în R

Kris Boudt

Professor, Free University Brussels & Amsterdam

Evaluarea comparativă a performanței

ch_2_video_2.003.png

Introducere în analiza portofoliului în R

Evaluarea comparativă a performanței

ch_2_video_2.004.png

Introducere în analiza portofoliului în R

Compromisul risc-randament

ch_2_video_2.006.png

Introducere în analiza portofoliului în R

Compromisul risc-randament

ch_2_video_2.007.png

Introducere în analiza portofoliului în R

Compromisul risc-randament

ch_2_video_2.008.png

Introducere în analiza portofoliului în R

Compromisul risc-randament

ch_2_video_2.009.png

Introducere în analiza portofoliului în R

Compromisul risc-randament

ch_2_video_2.010.png

Introducere în analiza portofoliului în R

Compromisul risc-randament

ch_2_video_2.011.png

Introducere în analiza portofoliului în R

Linia de alocare a capitalului

ch_2_video_2.013.png

Introducere în analiza portofoliului în R

Linia de alocare a capitalului

ch_2_video_2.014.png

Introducere în analiza portofoliului în R

Linia de alocare a capitalului

ch_2_video_2.015.png

Introducere în analiza portofoliului în R

Linia de alocare a capitalului

ch_2_video_2.016.png

Introducere în analiza portofoliului în R

Raportul Sharpe

ch_2_video_2.018.png

Introducere în analiza portofoliului în R

Raportul Sharpe

ch_2_video_2.019.png

Introducere în analiza portofoliului în R

Raportul Sharpe

ch_2_video_2.020.png

Introducere în analiza portofoliului în R

Raportul Sharpe

ch_2_video_2.021.png

Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c(-0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)

ch_2_video_2.024.png

Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c(-0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)
mean(sample_returns)

ch_2_video_2.025.png

Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c(-0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)
mean.geometric(sample_returns)

ch_2_video_2.026.png

Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c(-0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)
StdDev(sample_returns)

ch_2_video_2.027.png

Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c(-0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)
(mean(sample_returns)-0.004)/StdDev(sample_returns)

ch_2_video_2.028.png

Introducere în analiza portofoliului în R

Anualizarea performanței lunare

Captură de ecran 2019-08-21 la 11.00.36.png

  • Media aritmetică: medie lunară * 12
  • Media geometrică, când $R_i$ sunt randamente lunare:
    • $[(1+R_1)\cdot(1+R_2)\cdot...\cdot(1+R_T)]^{12/T} -1$
  • Volatilitatea: volatilitate lunară * sqrt(12)
Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c( -0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)

ch_2_video_2.036.png

Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c( -0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)
Return.annualized(sample_returns, scale = 12, geometric = FALSE)

ch_2_video_2.037.png

Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c( -0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)
Return.annualized(sample_returns, scale = 12, geometric = TRUE)

ch_2_video_2.038.png

Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c( -0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)
Std.Dev.annualized(sample_returns, scale = 12)

ch_2_video_2.039.png

Introducere în analiza portofoliului în R

Statistici de performanță în practică

library(PerformanceAnalytics)
sample_returns <- c( -0.02, 0.00, 0.00, 0.06, 0.02, 0.03, -0.01, 0.04)
Return.annualized(sample_returns, scale = 12)/
    Std.Dev.annualized(sample_returns, scale = 12)

ch_2_video_2.040.png

Introducere în analiza portofoliului în R

Să exersăm!

Introducere în analiza portofoliului în R

Preparing Video For Download...