For the size vector created using the following code:

size $<-$ c$("$small$",$ "medium", "medium", "large", "small" $,$"large"$)$

create an ordered factor vector named size$\_$factor. Set ordered to TRUE, and set levels to c$("$small$",$ "medium", "large"$).$