# run from R with runApp('normalplot-nographics', display.mode="showcase")
# to see the app, go to http://127.0.0.1:5930 in your browser

library(shiny)

# Define server logic
shinyServer(function(input, output) {

  output$myTextOutput <- renderText({
    # TODO: use your code from previous exercise to show probabilities
    paste0('My sigma is ', input$sig)
  })
})