inst/apps/beta_distributions/ui.R

In HarmonicAnova21/FRame.BuildR: Package for Generation of Frame Matrices

ui = fluidPage(theme = shinythemes::shinytheme('superhero'),

               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"))))))