.
ylab("Revenue") # R = b0 * Pr + b1 * Pr ^ 2 101.4284 * Price + -0.5143 * Price ^ 2 derivative_of_revenue <- 101.4284 + -1.0286 * Price -101.4284/-1.0286 By graphing Price as a square term, we have created a maximizing function. The place at the top of the parabola, where the derivative equals zero,