1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
tabsetPanel(
id = "diagnose_tabset",
#### hmc/nuts plots ####
tabPanel(
title = "NUTS (plots)",
source_ui("diagnostics_customize.R"),
navlistPanel(
id = "diagnostics_navlist",
tabPanel(
"By model parameter",
source_ui("diagnostics_by_parameter.R")
),
tabPanel(
"Sample information",
source_ui("diagnostics_sample.R")
),
tabPanel(
"Divergence information",
source_ui("diagnostics_ndivergent.R")
),
tabPanel(
"Energy information",
source_ui("diagnostics_energy.R")
),
tabPanel(
"Treedepth information",
source_ui("diagnostics_treedepth.R")
),
tabPanel(
"Step size information",
source_ui("diagnostics_stepsize.R")
),
tabPanel(
"Help",
source_ui("diagnostics_help.R")
),
well = FALSE,
widths = c(2, 10)
)
),
#### hmc/nuts stats ####
tabPanel(
title = "HMC/NUTS (stats)",
h2("Summary of sampler parameters"),
a_glossary("open_glossary_from_nuts_table"),
br(),
source_ui("sampler_stats_customize.R"),
DT::dataTableOutput("sampler_summary"),
br()
),
#### rhat, n_eff, mcse ####
tabPanel(
title = "\\(\\hat{R}, n_{eff}, \\text{se}_{mean}\\)",
source_ui("rhat_neff_mcse_layout.R")
),
#### autocorrelation ####
tabPanel(
title = "Autocorrelation",
source_ui("autocorr_customize.R"),
wellPanel(fluidRow(
column(
width = 8,
selectizeInput(
"ac_params",
width = "100%",
label = h5("Select or enter parameter names"),
choices = .param_list_with_groups,
multiple = TRUE
)
),
column(
width = 3,
offset = 1,
a_options("autocorr")
)
)),
plotOutput("autocorr_plot_out")
),
#### ppcheck ####
tabPanel(
title = "PPcheck",
h2("Graphical posterior predictive checks"),
h6("Experimental feature"),
source_ui(if (.has_rstanarm_ppcs)
"pp_navlist_rstanarm.R" else "pp_navlist.R"),
br()
)
)
|
