# load data
data(managers, package = 'PerformanceAnalytics')
# fit the factor model with LS. example: Up and down market factor model with LS fit
fitUpDn <- fitTsfmUpDn(asset.names = colnames(managers[,(1:6)]),
mkt.name = "SP500 TR",
data = managers,
fit.method = "LS")
predict(fitUpDn)
Run the code above in your browser using DataLab