# NOT RUN {
# define all the inputs:
Y<-sldata[,c("measure","age")]
nburn=as.integer(200);
nbetween=as.integer(200);
nimp=as.integer(5);
# Then we run the function:
imp<-jomo1(Y,nburn=nburn,nbetween=nbetween,nimp=nimp)
# Check help page for function jomo to see how to fit the model and
# combine estimates with Rubin's rules
# }
Run the code above in your browser using DataLab