#Set quantity vector
quantity<-c(1,1.1,1.2)
#Use Translog Demand Function
X<-DemandPrice(quantity, c(10,0.5), "Translog", Plot=TRUE, message=TRUE)
#Return the prices
X$price
#Return the demand elasticity
X$elasticity
Run the code above in your browser using DataLab