# NOT RUN {
result <- simulater(const = "cost 3", norm = "demand 2000 1000",
discrete = "price 5 8 .3 .7",
form = "profit = demand * (price - cost)")
plot(result)
# }
Run the code above in your browser using DataLab