inst/shinyApps/power/ui.R

In farfallawang/mosaicApps: A toolkit for teaching applied math and stats

library(shiny)


shinyUI(navbarPage(
  "Project Mosaic!",
  
  theme = shinytheme("cerulean"),
  
  tabPanel("Power Test",
           
           column(8, 
                  tabsetPanel(
                    tabPanel("Graphical Output",
                             plotOutput("graph")
                    ),
                    tabPanel("Explanation",
                             includeMarkdown("power-explain.md")))
           ),
           
           column(4,
                  wellPanel(
                    sliderInput("mu", label = h4("Mu"),
                                min = 5, max = 7, step = 0.1, value = 6),
                    
                    br(),
                    
                    sliderInput("sigma", label = h4("Sigma"),
                                min = 0, max = 4, step = 0.1, value = 2),
                    
                    br(),
                    
                    sliderInput("n", label = h4("N sample points"),
                                min = 5, max = 305, step = 5, value = 50)
                 ))
           
  )

))