inst/apps/figure10_4/ui.R

In Auburngrads/SMRD: Statistical Methods For Reliability Data

ui = fluidPage(theme = SMRD::add_theme(getShinyOption("theme")), 
               SMRD::add_css(),

sidebarLayout(
  sidebarPanel(width = 3,
    sliderInput("n"  , 
                label = "Sample Size",
                min = 5, 
                max = 200, 
                value = 5, 
                step = 20, 
                animate = TRUE),
    sliderInput("sim", 
                label = "Number Simulations",
                min = 5, 
                max = 50, 
                value = 5, 
                step = 5, 
                animate = TRUE),
    selectInput("dis", 
                label = "Distribution",
                choices = c("Weibull","Lognormal"), 
                selected = "Weibull")),
  
  mainPanel(plotOutput('simulate'), width = 9)))