library(shiny)

shinyUI(bootstrapPage(
    includeHTML("navbar.html"),
    headerPanel("Distribution of the Likelihood Ratio Test Statistic"),

    sidebarPanel(helpText("\\(X\\sim Binomial(n,\\theta), \\theta\\in(0,1)\\)"),
                 helpText("\\(H_{0}:\\theta=0.5 \\quad\\text{v.s.}\\quad H_1:\\theta\\neq 0.5\\)"),
                 helpText("\\(T=\\)Likelihood ratio statistic, see lecture notes"),

                 sliderInput("lr.n","Sample size n",min=1,max=500,value=10,step=1),
                 radioButtons("lr.plot", "Choose the plot",
                              list("CDF of T" = "t","CDF of 2*log(T)"="logt")),
                 sliderInput("lr.palt","Alternative to plot (pick the \\(p\\))",min=0,max=1,value=0.45)
                 ),
    mainPanel(plotOutput("cdf")),
    includeHTML("mycode.html")
)
        )