# This example is taken from Exercise 7.5 of Gill, Murray,
# and Wright (1991).
enj <- c(200, 6000, 3000, -200)
fat <- c(800, 6000, 1000, 400)
vitx <- c(50, 3, 150, 100)
vity <- c(10, 10, 75, 100)
vitz <- c(150, 35, 75, 5)
simplex(a=enj, A1=fat, b1=13800, A2=rbind(vitx, vity, vitz),
b2=c(600, 300, 550), maxi=TRUE)
Run the code above in your browser using DataLab