## Examples set to 'dontrun' because they take longer than 5s.
## Not run:
# data("ctExample3")
# model <- ctModel(n.latent = 1, n.manifest = 3, Tpoints = 100,
# LAMBDA = matrix(c(1, "lambda2", "lambda3"), nrow = 3, ncol = 1),
# MANIFESTMEANS = matrix(c(0, "manifestmean2", "manifestmean3"), nrow = 3,
# ncol = 1))
# fit <- ctFit(data = ctExample3, ctmodelobj = model, objective = "Kalman",
# stationary = c("T0VAR"))
#
# fit <- ctCI(fit, confidenceintervals = 'DRIFT')
#
# summary(fit)$omxsummary$CI
# ## End(Not run)
Run the code above in your browser using DataLab