## Examples set to 'dontrun' because they take longer than 5s.
### example from Driver, Oud, Voelkle (2016),
### simulated happiness and leisure time with unobserved heterogeneity.
## Not run:
# data(ctExample1)
# traitmodel <- ctModel(n.manifest=2, n.latent=2, Tpoints=6, LAMBDA=diag(2),
# manifestNames=c('LeisureTime', 'Happiness'),
# latentNames=c('LeisureTime', 'Happiness'), TRAITVAR="auto")
# traitfit <- ctFit(datawide=ctExample1, ctmodelobj=traitmodel)
# ctPlot(traitfit, type='CR', xlim=c(0,5),ylim=c(-1,1))
# ## End(Not run)
Run the code above in your browser using DataLab