# load data from the database
data(managers, package = 'PerformanceAnalytics')
# fit the factor model with LS
fit <- fitTsfm(asset.names = colnames(managers[,(1:6)]),
factor.names = c("EDHEC LS EQ","SP500 TR"),
data = managers)
predict_fit <- predict(fit)
newdata <- data.frame(rnorm(n=NROW(fit$data)), rnorm(n=NROW(fit$data)))
colnames(newdata) <- c("EDHEC LS EQ", "SP500 TR")
rownames(newdata) <- zoo::index(fit$data)
predict_fit_2 <- predict(fit, newdata, interval = "confidence")
Run the code above in your browser using DataLab