# NOT RUN {
sl <- c('primary','college','hs','middle','hs')
z <- data.frame(
schlvl = factor(x=sl,
levels=c('college','hs','middle','primary'))
)
z
z <- reOrder(z,'schlvl',c('primary','middle','hs','college'))
str(z) # shows the desired label order in the 'categoryorder' attribute
# }
Run the code above in your browser using DataLab