# make sure social is a factor:
sldata<-within(sldata, social<-factor(social))
# we define the data frame with all the variables
data<-sldata[,c("measure","age", "social")]
# And the formula of the substantive lm model
# social as an outcome only because it is the only ordinal variable in the dataset...
formula<-as.formula(social~age+measure)
#And finally we run the imputation function:
imp<-jomo.polr.MCMCchain(formula,data, nburn=100)
# Note we are using only 100 iterations to avoid time consuming examples,
# which go against CRAN policies. In real applications we would use
# much larger burn-ins (around 1000, to say the least).
# We can check, for example, the convergence of the first element of beta:
plot(c(1:100),imp$collectbeta[1,1,1:100],type="l")
Run the code above in your browser using DataLab