# \donttest{
HS.model <- "
visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9
"
utils::data("HolzingerSwineford1939", package = "lavaan")
fit <- acfa(HS.model, HolzingerSwineford1939, std.lv = TRUE, nsamp = 100,
test = "none", verbose = FALSE)
# Total elapsed time
timing(fit)
# All stages
timing(fit, what = "all")
# Specific stages
timing(fit, what = c("optim", "marginals"))
# }
Run the code above in your browser using DataLab