R/elasticity.R

Defines functions elasticity

Documented in elasticity

# 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 June 3, 2017, 5:11 p.m.