# load data
data(managers, package = 'PerformanceAnalytics')
# fit for first 3 assets
fit <- fitTsfm(asset.names=colnames(managers[,1:3]),
factor.names=colnames(managers[,7:9]),
data=managers)
# summary of factor model fit for all assets
summary(fit)
# summary of factor model fit for the second of three
summary(fit$asset.fit[[2]])
Run the code above in your browser using DataLab