# create an object of a left-sided desirability function
dLeft <- derFunc(0.5, 0.3, 2)
# create an object of a right-sided desirability function
dRight <- derFunc(0.5, 0.8, 1)
# create an object of a two-sided desirability function
dLR <- derFunc(0.5, c(0.3, 0.9), c(3, 1))
Run the code above in your browser using DataLab