# \donttest{
data("hfdata")
sc <- alphaScreening(hfdata[, 1:10], factors = hfdata[, 50:51],
control = list(nCore = 1, screen_beta = TRUE))
plot(exposureHeterogeneity(sc))
# }
Run the code above in your browser using DataLab