#Set price vector
price<-c(1,1.1,1.2)
#Use Linear Demand Function
X<-DemandQuantity(price,c(10,0.5), "Linear", Plot=TRUE, message=TRUE)
#Return the quantities
X$quantity
#Return the marginal revenues
X$marginal.revenue
Run the code above in your browser using DataLab