正規分布シミュレータのUI部分

ui.R

#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
# 
#    http://shiny.rstudio.com/
#

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(
  navbarPage("distribution",
     tabPanel("normal",
        sidebarLayout(
          sidebarPanel(
            sliderInput("mean","number of mean",min = -50,max = 50,value = 0),
            sliderInput("dispersion","number of dispersion", min = 1, max = 1600, value = 900),
            numericInput("normalsamplenum", "number of sample",
                         min = 1000, max = 100000, value = 20000)
          ),
          mainPanel(
            plotOutput("distPlot"),
            plotOutput("timePlot")
          )
        )
      ),
     tabPanel("exp",
        sidebarLayout(
          sidebarPanel(
            sliderInput("rate","number of rate", min = 0, max = 5, value = 2),
            numericInput("expsamplenum", "number of sample",
                         min = 1000, max = 100000, value = 20000)
          ),
          mainPanel(
            plotOutput("expdistPlot")
          ) 
        )
     ),
     tabPanel("pareto",
        sidebarLayout(
          sidebarPanel(
            sliderInput("x_0","number of X", min = 1,max = 5,value = 1),
            sliderInput("a","number of a", min = 1,max = 5,value = 2),
            numericInput("paretosamplenum", "number of sample",
                         min = 1000, max = 100000, value = 50000)
          ),
          mainPanel(
            plotOutput("paretodistPlot")
          )
        )
     ),
     tabPanel("poisson",
        sidebarLayout(
          sidebarPanel(
            # sliderInput("lambda","number of lambda", min = 1,max = 5,value = 2.5),
            numericInput("poissonsamplenum", "number of sample",
                         min = 1000, max = 100000, value = 50000)
          ),
          mainPanel(
            plotOutput("poissondistPlot")
          )
        )
     ),
     tabPanel("large",
        sidebarLayout(
          sidebarPanel(
            numericInput("largeSampleNumbers", "number of sample", 
                         min = 500, max = 2000, value = 1000)
          ),
          mainPanel(
            plotOutput("largePlot")
          )
        )      
     )
   )
))