# NOT RUN {
if (!exists("ctstantestfit")) example(ctstantestfit)
### Get output from ctKalman
x<-ctKalman(ctstantestfit,subjects=2,timestep=.01)
### Plot with plot.ctKalman
plot.ctKalmanDF(x, subjects=2)
###Single step procedure:
ctKalman(ctstantestfit,subjects=2,
kalmanvec=c('y','yprior'),
elementNames=c('Y1','Y2'),
plot=TRUE,timestep=.01)
# }
Run the code above in your browser using DataLab