# define all the inputs:
Y<-sldata[,c("measure","age")]
nburn=as.integer(200);
# Then we run the function:
imp<-jomo1.MCMCchain(Y,nburn=nburn)
#We can check the convergence of the first element of beta:
plot(c(1:nburn),imp$collectbeta[1,1,1:nburn],type="l")
#Or similarly we can check the convergence of any element of omega:
plot(c(1:nburn),imp$collectomega[1,2,1:nburn],type="l")
Run the code above in your browser using DataLab