R Programming/Multinomial Ordered Models