https://github.com/cran/bayestestR
Revision 01482dc32c49cc56111762e704c854b5f287966a authored by Dominique Makowski on 20 April 2020, 05:10:28 UTC, committed by cran-robot on 20 April 2020, 05:10:28 UTC
1 parent 645c10f
Tip revision: 01482dc32c49cc56111762e704c854b5f287966a authored by Dominique Makowski on 20 April 2020, 05:10:28 UTC
version 0.6.0
version 0.6.0
Tip revision: 01482dc
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 ...