# NOT RUN {
varian.ben <- var.add.benchmark(varian, ftse.constituents, "ftse100")
# }
# NOT RUN {
var.orig <- array(c(400, 32, 24, 32, 64, 9.6, 24, 9.6, 144), c(3,3),
list(c("equities", "bonds", "commodities"),
c("equities", "bonds", "commodities")))
var.aa <- var.add.benchmark(var.orig, c(equities=.6, bonds=.4), "e60b40")
# }
Run the code above in your browser using DataLab