R/elasticity.R

# C = cost of item; E = elasticity
# Optimal price = C(E/(E+1))
elasticity <-
function(cost, elasticity) {
  cost * (elasticity/(elasticity + 1))
}
andrewheiss/byumpa documentation built on May 10, 2019, 10:31 a.m.