ratesci-app/ui.R

In PeteLaud/ratesci: Confidence Intervals and Tests for Comparisons of Binomial Proportions or Poisson Rates

library(shiny)

# Define UI for ratesci application
shinyUI(pageWithSidebar(

  # Application title
  headerPanel("Skewness-corrected confidence intervals for comparison of rates"),

  # Sidebar with controls to select the variable to plot against mpg
  # and to specify whether outliers should be included
  sidebarPanel(
    textInput("x1", "x1:", "10"),
    textInput("n1", "n1:", "100"),
    textInput("x2", "x2:", "10"),
    textInput("n2", "n2:", "100"),
    selectInput("level", "Confidence level:", "0.95"),
    selectInput("skew", "Skewness correction:", list("TRUE", "FALSE")),
    selectInput("dist", "Distribution:", list("Binomial" = "bin", "Poisson" = "poi")),
    selectInput("contrast", "Contrast:", list("Rate Difference" = "RD", "Rate Ratio" = "RR", "Odds Ratio" = "OR", "Proportion x1/n1" = "p")),
    selectInput("theta0", "Null hypothesis theta:", "-0.1"),
    width = 3

#    checkboxInput("outliers", "Show outliers", FALSE)
  ),

  mainPanel(
    h3(textOutput("caption")),

    plotOutput("scorePlot")
  )
))