data(managers, package = 'PerformanceAnalytics')
fit <- fitTsfm(asset.names=colnames(managers[, (1:6)]),
factor.names=c("EDHEC LS EQ","SP500 TR"),
data=managers)
# without benchmark
paFm(fit)
Run the code above in your browser using DataLab