# NOT RUN {
# Using sldata:
data(sldata)
attach(sldata)
#We define all the inputs:
Y=data.frame(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)
# }
Run the code above in your browser using DataLab