# NOT RUN {
long <- ctWideToLong(datawide=ctExample2,Tpoints=8,n.manifest=2,n.TDpred=1,
manifestNames=c('LeisureTime','Happiness'),
TDpredNames=c('MoneyInt'))
long <- ctDeintervalise(long)
long <- ctDiscretiseData(dlong=long, timestep = 1.1,TDpredNames=c('MoneyInt'))
# }
Run the code above in your browser using DataLab