## Not run:
#
# latteMax("-2 x + 3 y", c("x + y <= 10", "x >= 0", "y >= 0"))
#
#
# df <- expand.grid(x = 0:10, y = 0:10)
# df <- subset(df, x + y <= 10)
# df$val <- apply(df, 1, function(v) -2*v[1] + 3*v[2])
# df[which.max(df$val),]
#
# library(ggplot2)
# qplot(x, y, data = df, size = val)
#
#
#
# ## End(Not run)
Run the code above in your browser using DataLab