# 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(dat=ctExample1, ctmodelobj=traitmodel)
check <- ctCheckFit(traitfit,niter=50)
plot(check)
if (!exists("ctstantestfit")) example(ctstantestfit)
scheck <- ctCheckFit(ctstantestfit,niter=500)
plot(scheck,wait=FALSE)
# }
Run the code above in your browser using DataLab