# Plots Pareto fronts for the hp/mpg values of mtcars
show_front <- function(pref) {
plot(mtcars$hp, mtcars$mpg)
sky <- psel(mtcars, pref)
plot_front(mtcars, pref, col = rgb(0,0,1))
points(sky$hp, sky$mpg, lwd = 3)
}
# Do this for all four combinations of pareto compositions
show_front(low(hp) * low(mpg))
show_front(low(hp) * high(mpg))
show_front(high(hp) * low(mpg))
show_front(high(hp) * high(mpg))
# Compare this to the front of a intersection preference
show_front(high(hp) | high(mpg))
Run the code above in your browser using DataLab