# NOT RUN {
# Compute the best hedge of Coca-Cola using sector ETFS.
# sectorETFS <- c("XLB","XLE","XLF","XLI","XLK","XLP","XLU","XLV","XLY")
# hedge <- yhedge.pci("KO", sectorETFS)
# hedge
# test.pci(hedge$pci)
# plot(hedge)
# }
Run the code above in your browser using DataLab