Revision 6acd4f1707b182a2cbe2f4a4c2d4196571d36eb3 authored by Dominique Makowski on 05 December 2020, 08:30:02 UTC, committed by cran-robot on 05 December 2020, 08:30:02 UTC
1 parent d73e4a2
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)
}
Computing file changes ...