if (FALSE) {
#Empirical deistribution
data("factorDataSetDjia5Yrs")
exposure.vars <-
fit.ffm <- fitFfm(data = factorDataSetDjia5Yrs,
asset.var = "TICKER",
ret.var = "RETURN",
date.var = "DATE",
exposure.vars = c("P2B", "MKTCAP", "SECTOR"),
addIntercept = FALSE)
resid.par <- fit.ffm$residuals
fmmc.returns.ffm <- fmmcSemiParam(factor.ret = fit.ffm$factor.returns,
beta = fit.ffm$beta,
resid.par = resid.par,
resid.dist = "empirical",
boot.method = "block")
}
Run the code above in your browser using DataLab