require(ordinal)
data(wine)
# 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