require(ordinal)
require(lsmeans)
model <- clm(rating~contact*temp,data=wine)
LSM <- lsmeans(model,~contact:temp|cut,mode="linear.predictor")
# Probabilities
rating.lsmeans(LSM)
# Cumulative probabilities
rating.lsmeans(LSM,type="cumprob")
# Most probable rating
rating.lsmeans(LSM,type="class1")
Run the code above in your browser using DataLab