scl <- DexiDiscreteScale(values = c("low", "med", "high"))
value_qualities(1, scl) # "bad"
value_qualities(1:3, scl) # c("bad", "none", "good")
value_qualities(c(3, 2), scl) # c("good", "none")
Run the code above in your browser using DataLab