ConfidenceIntervals/ui.R at master · JackStat/ConfidenceIntervals · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
require(shiny)

# Define UI for dataset viewer application
shinyUI(
  pageWithSidebar(
    # Application title.
    headerPanel("Simulating Confidence Intervals: By Tyler Hunt")

      ,sidebarPanel(class="span10"
        ,wellPanel(
          numericInput(inputId = "nsamp"
                       ,label = strong("Sample Size")
                       ,value = 100
                       ,min = 5
                       ,max = 10000)
          ,numericInput(inputId = "mean"
                       ,label = strong("Mean")
                       ,value = 0
                       ,min = 1
                       ,max = 10000000)

          ,numericInput(inputId = "variance"
                       ,label = strong("Variance")
                       ,value = 1
                       ,min = .01
                       ,max = 100)

          ,numericInput(inputId = "conf.level"
                       ,label = strong("Confidence Level")
                       ,value = 95
                       ,min = 1
                       ,max = 99)
          ,actionButton("simulate", label = "Simulate")
          # ,wellPanel(
          #   helpText("This app is a demonstration of confidence intervals. The length of the bars are the size of the intervals. If the interval does not overlap with the population value (the black vertical line) then it is colored red to indicate a type 1 error.  Try increasing the sample size and see what happens")
          # )
          ,align="center")
        )

      # Show a summary of the dataset and an HTML table with the requested
      # number of observations. Note the use of the h4 function to provide
      # an additional header above each output section.
      ,mainPanel(
        plotOutput('conf.plot')
      )
    )
  )