data(managers, package = 'PerformanceAnalytics')
fit <- fitTsfm(asset.names=colnames(managers[,(1:6)]),
factor.names=colnames(managers[,7:9]),
mkt.name="SP500.TR", data=managers)
print(fit)
Run the code above in your browser using DataLab