##### https://github.com/cran/bayestestR

Tip revision:

**4936034770c69a8db2855f46f578e34116ffa383**authored by**Dominique Makowski**on**20 October 2019, 06:20 UTC****version 0.4.0** Tip revision:

**4936034** 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)
}
```