inst/ShinyStan/server_files/utilities/par_samps_reactive.R

In shinystan: Interactive Visual and Numerical Diagnostics and Posterior Analysis for Bayesian Models

# 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]
})