R/hlpr_get_stats.r

In ha-pu/supportR: Helpful supporters

# .hlpr_get_stats ----
.hlpr_get_stats <- function(input) {
  out <- c(
    class(input),
    length(input),
    sd(input),
    min(input),
    quantile(input, 0.25),
    mean(input),
    median(input),
    quantile(input, 0.75),
    max(input)
  )
  return(out)
}