inst/shiny-examples/ConjugateNormal/ui.R

library('shiny')

shinyUI(fluidPage(

  # titlePanel('Bayesian inference for normal mean (known variance)'),

  sidebarLayout(
    sidebarPanel(

      numericInput("y_data", label = "Observed data:", value = 56, step = 1L),
      numericInput("data_sigma", label = "Known variance of data:", value = 20, min = 0, step = 1L),
      hr(),
      numericInput("prior_mu", label = "Prior μ:", value = 80, step = 1L),
      numericInput("prior_sigma", label = "Prior σ:", value = 10, min = 0, step = 1L)

    ),

    mainPanel(
      plotOutput("dist_plot")
    )
  )

))

Try the SciencesPo package in your browser

Any scripts or data that you put into this service are public.

SciencesPo documentation built on May 29, 2017, 9:28 p.m.