library(shiny)

shinyUI(bootstrapPage(
    includeHTML("navbar.html"),
    headerPanel("Bayesian Normal-Normal model"),
    sidebarPanel( helpText("\\(\\theta\\sim N(0,1)\\)"),
                 helpText("\\(X_1,\\dots,X_n\\sim N(\\theta,1)\\) independently"),

                 sliderInput("bayes.n","Sample size n",min=0,max=100,value=1,step=1),
                 sliderInput("bayes.seed","Seed for Random Numbers",min=1,max=10000,step=1,value=123)
                 ),
    mainPanel(plotOutput("cdf")),
    includeHTML("mycode.html")
)
        )