## SOURCE("fMultivar.D2-BenchmarkAnalysis")
## ohlcPlot -
# Plot OHLC for SP500
# ohlcPlot(x, ylab = "price", main = instrument)
## sharpeRatio -
xmpMultivar("\nStart: Sharpe Ratio > ")
# Sharpe Ratio for DAX and FTSE:
data(EuStockMarkets)
dax = log(EuStockMarkets[, "DAX"])
ftse = log(EuStockMarkets[, "FTSE"])
# Ratios:
sharpeRatio(dax)
sharpeRatio(ftse)
## maxDrawDown -
xmpMultivar("\nNext: Max-Draw-Downs for the DAX Index >")
par(mfrow = c(1, 1), cex = 0.7)
data(EuStockMarkets)
dax = log(EuStockMarkets[, "DAX"])
mdd = maxDrawDown(dax)
mdd
# Plot DAX:
plot(dax)
segments(time(dax)[mdd$from], dax[mdd$from],
time(dax)[mdd$to], dax[mdd$from])
segments(time(dax)[mdd$from], dax[mdd$to],
time(dax)[mdd$to], dax[mdd$to])
mid = time(dax)[(mdd$from + mdd$to)/2]
arrows(mid, dax[mdd$from], mid, dax[mdd$to], col = 2)
title(main = "DAX: Max Drawdown")
## getReturns -
xmpMultivar("\nNext: Returns for the DAX Index >")
par(mfrow = c(1, 1), cex = 0.7)
data(EuStockMarkets)
dax = log(EuStockMarkets[, "DAX"])
plot(getReturns(dax))
title(main = "DAX: Returns")Run the code above in your browser using DataLab