# NOT RUN {
# 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 DataCamp Workspace