https://github.com/cran/bayestestR
Revision 092b63c552bdf3196413c25583520dc23033769b authored by Dominique Makowski on 30 October 2021, 13:00:02 UTC, committed by cran-robot on 30 October 2021, 13:00:02 UTC
1 parent 68a979e
Tip revision: 092b63c552bdf3196413c25583520dc23033769b authored by Dominique Makowski on 30 October 2021, 13:00:02 UTC
version 0.11.5
version 0.11.5
Tip revision: 092b63c
as.list.R
# as.list -----------------------------------------------------------------
#' @export
as.list.bayestestR_hdi <- function(x, ...) {
if (nrow(x) == 1) {
out <- list(CI = x$CI, CI_low = x$CI_low, CI_high = x$CI_high)
out$Parameter <- x$Parameter
} else {
out <- list()
for (param in x$Parameter) {
out[[param]] <- list()
out[[param]][["CI"]] <- x[x$Parameter == param, "CI"]
out[[param]][["CI_low"]] <- x[x$Parameter == param, "CI_low"]
out[[param]][["CI_high"]] <- x[x$Parameter == param, "CI_high"]
}
}
out
}
#' @export
as.list.bayestestR_eti <- as.list.bayestestR_hdi
#' @export
as.list.bayestestR_si <- as.list.bayestestR_hdi
#' @export
as.list.bayestestR_ci <- as.list.bayestestR_hdi
Computing file changes ...