# NOT RUN {
# Producing at the default settings of price ($0.75)
# and throughput of 325 parts per hour:
manufacture()
# Let's try selling for a higher price, $1.05,
# and a slower throughput of 298 parts per hour:
manufacture(P=1.05, T=298)
# What happens if the product is sold too cheaply
# at high production rates?
manufacture(P=0.52, T=417)
# Can you find the optimum combination of settings to
# maximize the profit, but using only a few experiments?
# }
Run the code above in your browser using DataLab