data("hfdata")
rets <- hfdata[, 1:10]
## focal Sharpe screening (funds by index) against the whole universe
out <- targetPeerPerformance(rets, funds = c(2, 5, 7), method = "sharpe",
control = list(nCore = 1))
out$sharpe
Run the code above in your browser using DataLab