R/math-variance.R

Defines functions ace_se ace_sd

#' @keywords internal

ace_sd <- function(x) {
  return (sd(to_numeric(x), na.rm = TRUE))
}

#' @keywords internal

ace_se <- function(x) {
  vals = na.omit(to_numeric(x))
  return (sqrt(var(vals)/length(vals)))
} 
josegallegos07/aceR documentation built on June 27, 2022, 10:25 a.m.