Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
#################################################################################
############################ GMV Settings #######################################
#################################################################################
gmv.lookback=120
gmv.maxWeight=0.3
gmv.longOnly=FALSE
gmv.estimator="CovClassic"
#################################################################################
############################ GMV BACKTEST SPDR ##################################
#################################################################################
# Equal weight allocation benchmark for SPDR portfolio
equalWeights <- xts(matrix(1/ncol(SPDR.returns), nrow=nrow(SPDR.returns),
ncol=ncol(SPDR.returns)), order.by=index(SPDR.returns))
SPDR.EqualWeights <- xts(rowSums(SPDR.returns[index(equalWeights)]*equalWeights),
order.by=index(equalWeights))
# GMV strategy for SPDR portfolio
SPDR.GMV <- GMVPortfolioBacktest(returns=SPDR.returns,
max.weight=gmv.maxWeight,
covariance.f=gmv.estimator,
lookback=gmv.lookback,
longOnly=gmv.longOnly,
nrCores=nrCores,
plot=TRUE, strategyName="SPDR GMV")
# Compare equal weight strategy with GMV strategy for SPDR portfolio
plotReturns(returns=SPDR.EqualWeights,
strategyName="SPDR Equal Weights",
returns.compare=SPDR.GMV[[1]],
strategyName.compare="SPDR GMV")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment