# \donttest{
data("hfdata")
set.seed(1234)
fac <- matrix(rnorm(nrow(hfdata) * 2), ncol = 2,
dimnames = list(NULL, c("MKT", "SMB")))
sc <- alphaScreening(hfdata[, 1:20], factors = fac, screen_beta = TRUE,
control = list(nCore = 1))
exposureHeterogeneity(sc)
# }
Run the code above in your browser using DataLab