inst/ShinyStan/server_files/utilities/par_samps_reactive.R

# reactive function to get samples for a single parameter
par_samps_all <- reactive({
  param <- input$param
  p <- which(PARAM_NAMES == param)
  SAMPS_all[, , p]
})
par_samps_post_warmup <- reactive({
  param <- input$param
  p <- which(PARAM_NAMES == param)
  SAMPS_post_warmup[, , p]
})
stan-dev/shinystan documentation built on Aug. 7, 2022, 3:25 a.m.