Ordered Factor R Programming