library(shiny)

shinyUI(bootstrapPage(
    includeHTML("navbar.html"),
    headerPanel("Confidence Intervals - Illustration" ),
    sidebarPanel(
        sliderInput("CI.mu","True mean mu",min=-5,max=5,value=1),
        sliderInput("CI.n","Sample size n",min=1,max=100,value=10),
        sliderInput("CI.covprob","Coverage Probability",min=0.01,max=0.99,value=0.95,step=0.01),
        sliderInput("CI.nrep","Number of independent CIs to generate",min=1,max=100,value=10),
        helpText("Model:","\\(X_1,\\dots,X_n\\sim N(\\mu,1)\\) independently with \\(\\mu\\in\\mathbb{R}\\) unknown.","The confidence intervals are computed for the unknown parameter \\(\\mu\\).")
    ),
    mainPanel(plotOutput("cdf")),
    includeHTML("mycode.html")
)
        )