# C = cost of item; E = elasticity
# Optimal price = C(E/(E+1))
elasticity <-
function(cost, elasticity) {
cost * (elasticity/(elasticity + 1))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.