https://github.com/cran/bayestestR
Revision 68a979e69aa2a1e57017730e1397470d5614d216 authored by Dominique Makowski on 02 September 2021, 23:10:30 UTC, committed by cran-robot on 02 September 2021, 23:10:30 UTC
1 parent 85d0a04
Tip revision: 68a979e69aa2a1e57017730e1397470d5614d216 authored by Dominique Makowski on 02 September 2021, 23:10:30 UTC
version 0.11.0
version 0.11.0
Tip revision: 68a979e
utils_clean_stan_parameters.R
#' @keywords internal
.clean_up_tmp_stanreg <- function(tmp, group, cols, parms) {
tmp$Group <- group
tmp$Parameter <- rep(parms, each = nrow(tmp) / length(parms))
rownames(tmp) <- NULL
tmp <- tmp[, c("Parameter", cols)]
# clean random effects notation from parameters
# tmp$Parameter <- gsub("b\\[(.*) (.*)\\]", "\\2", tmp$Parameter)
tmp
}
#' @keywords internal
.clean_up_tmp_brms <- function(tmp, group, component, cols, parms) {
tmp$Group <- group
tmp$Component <- component
tmp$Parameter <- rep(parms, each = nrow(tmp) / length(parms))
rownames(tmp) <- NULL
tmp <- tmp[, c("Parameter", cols)]
# clean random effects notation from parameters
# tmp$Parameter <- gsub("r_(.*)\\.(.*)\\.", "\\1", tmp$Parameter)
tmp
}
Computing file changes ...