Shiny application that uses a certainty equivalent as input to create an exponential utility function