if (FALSE) {
library(PCRA)
data(stocksCRSP)
data("factorDataSetDjia5Yrs")
# fit a fundamental factor model
fit.style.sector <- fitFfm(data=factorDataSetDjia5Yrs,
asset.var="TICKER",
ret.var="RETURN",
date.var="DATE",
exposure.vars = c("P2B", "MKTCAP"))
print(fit.style.sector)
}
Run the code above in your browser using DataLab