if (require("ordinal",quietly=TRUE)) {
data(wine,package="ordinal")
# Frequencies
rating.prob(wine$rating,wine$contact:wine$temp)
# Cumulative frequencies
rating.prob(wine$rating,wine$contact:wine$temp,type="cumprob")
# Most frequent rating
rating.prob(wine$rating,wine$contact:wine$temp,type="class")
}
Run the code above in your browser using DataLab