inst/apps/distribution_beta_functions/ui.R

In clawilso15/Text.Replace: Survey Responses Analysis

ui = fluidPage(theme = shinythemes::shinytheme("cerulean"), 
               
               sidebarLayout(
                 sidebarPanel(width = 3, 
                              sliderInput("shape1", 
                                          label = HTML("Shape Parameter (α)"),
                                          min = .5, 
                                          max = 10, 
                                          step = .5, 
                                          value = 2,
                                          animate = animationOptions(interval = 400)),
                              sliderInput("shape2", 
                                          label = HTML("Shape Parameter (β)"),
                                          min = .5, 
                                          max = 10, 
                                          step = .5,
                                          value = .5,
                                          animate = animationOptions(interval = 400)),
                              sliderInput("scale.beta", 
                                          label = "Scale Parameter (d)",
                                          min = 1, 
                                          max = 20, 
                                          step = 1, 
                                          value = 1),
                              sliderInput("loc.beta", 
                                          label = "Location Parameter (c)",
                                          min = 0, 
                                          max = 10, 
                                          step = .5, 
                                          value = 0)), 
                 
                 mainPanel(width = 9, 
                           tabsetPanel(type = "pills", 
                                       tabPanel("Distribution Function", 
                                                metricsgraphicsOutput(height = "550px", "betaC")), 
                                       tabPanel("Density",
                                                metricsgraphicsOutput(height = "550px", "betaP")), 
                                       tabPanel("Survival", 
                                                metricsgraphicsOutput(height = "550px", "betaR")), 
                                       tabPanel("Hazard", 
                                                metricsgraphicsOutput(height = "550px", "betah")), 
                                       tabPanel("Cumulative Hazard", 
                                                metricsgraphicsOutput(height = "550px", "betaH")),
                                       tabPanel("Quantile", 
                                                metricsgraphicsOutput(height = "550px", "betaQ"))))))