R/mean_lwr_upr.R

Defines functions mean_lwr_upr

mean_lwr_upr <- function(x, level = 0.95) {
  alpha <- 1 - level
  c(fit = mean(x), quantile(x, c(alpha / 2, 1 - alpha / 2)) %>% set_names(c("lwr", "upr")))
}
McChickenNuggets/blblm documentation built on March 22, 2021, 1:45 p.m.