Desirability functions in R