# Creating a vector 
x<-c("North", "North", "East", "West") 
  
# Converting vector into factor
Directions <- factor(x)
  
# Using as.ordered() Function
# to order an unordered factor
as.ordered(Directions)

[1] North North East  West 
Levels: East < North < West

# creating vector size 
size = c("small", "large", "large", "small",  
         "medium", "large", "medium", "medium")   
sizes <- ordered(c("small", "large", "large", 
                   "small", "medium")) 
    
# Using as.ordered() Function
# to order an unordered factor
as.ordered(sizes)

[1] small  large  large  small  medium
Levels: large < medium < small