# NOT RUN {
if (!exists("ctstantestfit")) example(ctstantestfit)
gen <- ctStanGenerateFromFit(ctstantestfit, nsamples=3,fullposterior=TRUE)
plot(gen$generated$Y[,3,2],type='l') #Third random data sample, 2nd manifest var, all time points.
# }
Run the code above in your browser using DataLab