# run with runApp('path-to-shiny-app', display.mode="showcase") in R console

# if missing, install with command `install.packages('shiny')`
library(shiny)

# Define UI
shinyUI(fluidPage(
  
  # Application title
  titlePanel("Normal Distribution"),
  
  # Sidebar with a slider input for the number of bins
  sliderInput("sig",
              "sigma:",
              min = 0.1,
              max = 3,
              value = 1),
  sliderInput("k",
              "k:",
              min = 1,
              max = 3,
              value = 1,
              step = 1),
  
  plotOutput('normalPlot')
))