R/maxRev_forElas.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Compute maximum revenue given constant input elasticity
#' @param e A vector of lenght 2 defining elasticity, where the first element is slope and second element is intercept. Make sure you keep this order in the supplied vector. 
#' @return Maximum achievable revenue for given elasticity coefficient and intercept.
#' @export


priceOf_maxRev_forElas = function(f){
  return(
    -f[2]/(2*f[1])
  )
}