inst/apps/VisualizeBinomHypTest/ui.R

In stephanGit/leistungstests: Supplies Functions to calculate 'leistungstests'

#
# 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(
    #titlePanel("test"),

     fluidRow( #sidebarLayout(

        column(3, #sidebarPanel(
        sliderInput("n","Sample-size:", min = 1, max = 100, value = 30),
        sliderInput("p0","p0 in %", min = 0, max = 100, value = 90, step = 1),
        sliderInput("pA","pA in %", min = 0, max = 100, value = 95, step = 1),
        sliderInput("alpha","alpha in %", min=0, max=20, value = 5, step = 0.5)
      ),

      column(9, #mainPanel(
        tabsetPanel(
          tabPanel("Graph",plotOutput("viualizePropTest")),
          tabPanel("Num",verbatimTextOutput("powerTest"))
        )
      )
    )
  )
)