https://github.com/cran/bayestestR
Tip revision: e1fa15d202de277bb07e58bb3013557724072b2b authored by Dominique Makowski on 22 September 2019, 15:30:05 UTC
version 0.3.0
version 0.3.0
Tip revision: e1fa15d
utils_get_parameter_names.R
#' @importFrom insight find_parameters
.get_parameter_names <- function(posterior, effects, component, parameters) {
pars <- insight::find_parameters(posterior, flatten = FALSE, parameters = parameters)
pars <- switch(
effects,
"fixed" = pars[c("conditional", "zero_inflated")],
"random" = pars[c("random", "zero_inflated_random")],
"simplex" = pars["simplex"],
"smooth_terms" = pars["smooth_terms"],
"all" = pars
)
pars <- switch(
component,
"conditional" = pars[c("conditional", "random", "simplex", "smooth_terms")],
"zi" = ,
"zero_inflated" = pars[c("zero_inflated", "zero_inflated_random", "simplex", "smooth_terms")],
"all" = pars
)
unlist(pars)
}