library(shiny)

shinyUI(bootstrapPage(
    includeHTML("navbar.html"),
    headerPanel("Hitting a Target - Likelihood function"),
    sidebarPanel(
        sliderInput("n","Number of attempts",min=1,max=100,value=10),
        sliderInput("p","Success probability p",min=0,max=1,value=0.5),
        sliderInput("seed","Seed for Random Numbers",min=1,max=5000,value=1231,step=1),
        helpText("Model:","\\(X_1,\\dots,X_n\\sim Bernoulli(p)\\) independently with \\(p\\in[0,1]\\) unknown."),
        helpText("MLE:  \\(\\hat{p}=\\frac{1}{n}\\sum_{i=1}^n X_i\\).")
    ),
    mainPanel(verbatimTextOutput("observations"),plotOutput("likelihood")),
    includeHTML("mycode.html")
)
        )