Added code for ordinal logistic regression in R