# creating offer and demand curve via the reservation # prices of the agents dom = runif(20) off = runif(20) dom = ts(sort(dom,decreasing=TRUE)) off = ts(sort(off)) ts.plot(dom, off) #dev.off()