# load data from the database
data(managers, package = 'PerformanceAnalytics')
# fit the factor model with LS
fit.ts <- fitTsfm(asset.names = colnames(managers[,(1:6)]),
factor.names = c("EDHEC LS EQ","SP500 TR"),
data = managers)
fm.attr <- paFm(fit.ts)
summary(fm.attr)
Run the code above in your browser using DataLab