inst/apps/censoring_types/ui.R

ui = fluidPage(theme = add_theme(getShinyOption('theme')), 
               add_css(),
               
sidebarLayout(
  sidebarPanel(width = 3,
    selectInput("censor", 
                label = "Type of Censoring",
                choices = c("Exact Failures", 
                            "Singly Censored", 
                            "Inspection Data"),
                selected = "Exact Failures")),
  
    mainPanel(plotOutput("plotcens", height = "200px"), width = 9)))

Try the teachingApps package in your browser

Any scripts or data that you put into this service are public.

teachingApps documentation built on July 1, 2020, 5:58 p.m.