inst/apps/figure7_3/ui.R

ui = fluidPage(theme = SMRD::add_theme(getShinyOption('theme')),
               SMRD::add_css(),
             
sidebarLayout(
  sidebarPanel(width = 3,
    selectInput("n7.3", 
                label = "Observations:",
                choices = c("20", "200", "2000", "10220"), 
                selected = "20")),
     
     mainPanel(plotOutput('berksonmle'), width = 9)))
Auburngrads/SMRD documentation built on Sept. 14, 2020, 2:21 a.m.