Kelly vs Markowitz
Musica e finanza: fan in delirio, i BTS sbarcano in Borsa a Seoul con Ipo record ultimi tre anni
I fan sono già in delirio: poter accapparrarsi anche solo un titolo di Big Hit Entertainment, significa per loro avere un pezzo della loro adorata band BTS, avvicinarsi in qualche …
Banche rinascono con sirene M&A da Francia, Banco BPM e Bper regine sul Ftse Mib
Piazza Affari archivia una seduta volatile che ha visto protagoniste in positivo le banche. Il Ftse Mib ha chiuso a -0,12% a 18.906 punti. Gli investitori continuano a guardare con …
Dossier Autostrade, CdP pronta a rompere trattative. Atlantia va avanti verso soluzione di mercato
E ora, dopo mesi di trattative, di discorsi sulla nazionalizzazione di ASPI auspicata dai vari Alessandro Di Battista & Co con tanto di polemiche, dopo gli annunci trionfalistici del M5S …
Tutti gli articoli
Tutti gli articoli Tutte le notizie

  1. #1

    Data Registrazione
    Nov 2007
    Messaggi
    143
    Blog Entries
    1
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)
    Potenza rep
    0

    Kelly vs Markowitz

    vedi: Quantitative Trading: Kelly vs. Markowitz Portfolio Optimization

    con le coronarie che mi ritrovo, per me vince ancora markowitz...
    Codice:
    
    # +------------------------------------------------------
    # |          Kelly vs Markowitz
    # |      (cfr. epchan.blogspot.com )
    # +------------------------------------------------------
    
    library(quantmod)
    library(PerformanceAnalytics)
    
    # Caricare Direttamente Dati Monthly
    syms = c(
      "SPY",     # US SP500
      "TLT",     # US bonds
      "GLD"      # US Gold 
    )
    Rf <- 0.002  # Risk-free 2.4%  anno
    
    getSymbols(syms, from="1970-01-01")
    p <- do.call(merge, lapply(syms, function(x) {
                   Cl(to.monthly(Ad(get(x)), drop.time = TRUE,
                   indexAt='endof'))
                   }))
    colnames(p) = paste(syms, ".Ad",sep="")
    r <- na.omit(ROC(p,type="discrete")) # monthly return
    
    M <- apply(r,2,mean)-Rf # excess return vector
    C <- cov(r)             # covariance matrix
    KW <- (solve(C)%*%M)/2  # (Half)Kelly-weigths vector
    KW                      # H-Kelly Portfolio W's 
    
    MW <- KW/sum(KW)          
    MW                      # Markowitz Tangency Portfolio W's
    
    # Risultati *IN-SAMPLE* :
    
    xx <- t(apply(r,1,function(x) x*MW))
    my <- as.xts(apply(xx,1,sum))
    xx <- t(apply(r,1,function(x) x*KW))
    ky <- as.xts(apply(xx,1,sum))
    z <- cbind(my,ky,r)
    colnames(z) <- c("Markowitz","H-Kelly",syms)
    table.AnnualizedReturns(z, Rf=Rf, scale=12)
    charts.PerformanceSummary(z,ylog=T,lwd=1)
    maxDrawdown(z)
    
    # Notare che il Full-Kelly va in crash (99% maxdd)
    # +-----------------Fine-------------------------------------

  2. #2
    L'avatar di Hancock
    Data Registrazione
    Sep 2014
    Messaggi
    1,041
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)
    Potenza rep
    26116299

Accedi