Add upper and lower CI quantile 0.025 and 0.975 to stats tibbles

[spsanderson]

Lower CI
Functions:

ci_lo <- function(x, na.rm = FALSE){
  unname(stats::quantile(x, 0.025, na.rm = na.rm))
}

ci_hi <- function(x, na.rm = FALSE){
  unname(stats::quantile(x, 0.975, na.rm = na.rm))
}

Example:

x <- rnorm(1000, mean = 0, sd = 1)
> ci_lo(x)
[1] -2.045667

> ci_hi(x)
[1] 2.04782