Find efficient frontier
A predicate that is TRUE if a point is on the efficient frontier.
frontier(...)
... |
coordinates to scan |
logical vector, TRUE if point is on efficient frontier
df <- data.frame(x=rnorm(100), y=rnorm(100)) plot(df) points(subset(df, frontier(x,y)), col='red', pch=15) points(subset(df, frontier(-x,y)), col='green', pch=15) points(subset(df, frontier(x,-y)), col='blue', pch=15) points(subset(df, frontier(-x,-y)), col='orange', pch=15)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.