Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
questi
http://www.finanzaonline.com/forum/...trength-asset-allocation-10.html#post40049737
con il migliore o i 3 migliori...con frontiera o senza....nella finestra di 3 mesi
minimo 10%....ma anche 13 oppure 20
esempio con i 3 migliori, cosi e' + difficile il caso fortunato ( +13%)
questo proposto da Pedalopiano
ZROZ, MDY, VWO, VNQ, TLT, TIP, VEA
ciao
Più che proposto è una delle traduzioni possibili in ETF del portafoglio suggerito da swensen.questo proposto da Pedalopiano
ZROZ, MDY, VWO, VNQ, TLT, TIP, VEA
ciao
anche escludere il momentum negativo serve...specie se il bouquet e' mal assortito
nel 2008 scendeva quasi tutto e flattare non era una brutta idea
La strategia è usabile solo con i future, altrimenti data l'impossibilità di detrarre le inevitabili perdite e il costo della copertura del cambio non conviene, meglio un portafoglio bilanciato classico.
....
Allora, stabilito che la strategia si regge in piedi (punto fondamentale), è realistico pensare di switch-are fra un numero ristretto di asset stabiliti una volta per tutte, durante un periodo di molti anni?
Detta in altro modo, nella scelta di PP degli asset, non c'è il rischio di overfitting da specchietto retrovisore?
Ho saltato il fosso: bici elettricaΠαντα ρει;41313924 ha scritto:@ PP
Dal 54x11 sono passato al 48x28
Ho saltato il fosso: bici elettrica
grazie bob
se non sbaglio sono tutti etf usa, avete mai fatto delle prove con etf italiani?o in euro?
###### Dependencies
require(quantmod)
require(PerformanceAnalytics)
###### Common function
rank <- function(x) {
l <- length(x)
y <- rep(NA, l)
m <- min(x) - 1
flag <-l
index <- -1
while(flag>0) {
for (i in 1:l){
if(is.na(y[i]) && x[[i]]>m) {
m <- x[[i]]
index <- i
}
}
y[index] <- flag
flag <- flag -1
m <- min(x) - 1
}
return (y)
}
rev.rank <- function(x) {
l <- length(x)
return(l+1-x)
}
###### Global Variables
symbols <- c("DAXX.MI", "ETFMIB.MI", "LUSA.MI", "UST.MI",
"EMKT.MI", "EMAAA.MI",
"CRB.MI")
from <- "1990-01-01"
roc <- 2
in.rank <- 2
out.rank <- 4
###### Run
l <- length(symbols)
# Dataset1 contains adj.prices of all series
Dataset1 <- NULL
for (i in 1:l){
myStock <- getSymbols(symbols[i], from = from, auto.assign = FALSE)
if (is.null(Dataset1)) {
myStock <- to.monthly(myStock)
myStock <- myStock[,6]
Dataset1 <- myStock
}else{
myStock <- to.monthly(myStock)
myStock <- myStock[,6]
Dataset1 <- merge(Dataset1, myStock)
}
}
colnames(Dataset1) <- symbols
Dataset1 <- na.omit(Dataset1)
rm(myStock)
# Dataset2 contains logYields of all series
Dataset2 <- NULL
for (i in 1:l){
if(is.null(Dataset2)){
Dataset2 <- log(Dataset1[,1]/Lag(Dataset1[,1], k = 1)) * 100
} else{
y <- log(Dataset1[,i]/Lag(Dataset1[,i], k = 1))*100
Dataset2 <- merge(Dataset2, y)
}
}
colnames(Dataset2) <- symbols
Dataset2 <- na.omit(Dataset2)
rm(y)
# Dataset3 contains ROC of all series
Dataset3 <- NULL
for (i in 1:l){
if(is.null(Dataset3)){
Dataset3 <- log(Dataset1[,1]/Lag(Dataset1[,1], k = roc)) * 100
} else{
y <- log(Dataset1[,i]/Lag(Dataset1[,i], k = roc))*100
Dataset3 <- merge(Dataset3, y)
}
}
colnames(Dataset3) <- symbols
Dataset3 <- na.omit(Dataset3)
rm(y)
# Dataset4 contains rank of all mounth
#Dataset4 <- NULL
Dataset4 <- array(0, c(nrow(Dataset3),l))
Dataset4 <- zoo(Dataset4, time(Dataset3))
for (i in 1:nrow(Dataset3)) {
y <- rev.rank(rank(Dataset3[i,]))
for (j in 1:l) {
Dataset4[i,j] <- y[j]
}
rm(y)
}
colnames(Dataset4) <- symbols
Dataset4 <- na.omit(Dataset4)
Dataset <- na.omit(merge(Dataset2, Dataset4))
###### Run the strategy
dt <- array(0, c(nrow(Dataset), l))
dt <- zoo(dt, time(Dataset))
for (i in 1:l) {
if(Dataset[1,i+l]<in.rank+1) dt[2,i]=1
}
for (j in 2:nrow(Dataset)-1) {
for (i in 1:l) {
if(Dataset[j,i+l]<in.rank+1) dt[j+1,i]=1
if((Dataset[j,i+l]<out.rank+1) &&
(dt[j,i]==1)) dt[j+1,i]=1
}
}
colnames(dt) <- symbols
y <- array(0, c(nrow(Dataset),1))
y <- zoo(y, time(Dataset))
y <- as.xts(y)
for (i in 1:nrow(Dataset)) {
s <- 0
for (j in 1:l) {
y[i,1] <- Dataset[i,j]*dt[i,j] + y[i,1]
s <- s+dt[i,j]
}
y[i,1] <- y[i,1]/s
}
y <- na.omit(y)
plot(cumsum(y), main = "Strategy")
@plot(dt)
Ho saltato il fosso: bici elettrica
bella Pà