R/get_stats_function.R

get_stats <- function(x, probs) {
  x <- as.numeric(x)
  quants <- quantile(x, probs = probs)
  names(quants) <- NULL
  return(c(mean = mean(x), LB = quants[1], UB = quants[2]))
}
gpapadog/LERCA documentation built on June 4, 2019, 11:40 a.m.