R/meanAD.R

In MKmisc: Miscellaneous Functions from M. Kohl

Defines functions meanAD

Documented in meanAD

meanAD <- function(x, na.rm = FALSE, constant = sqrt(pi/2)){
  stopifnot(is.numeric(x))
  AM <- mean(x, na.rm = na.rm)
  constant*mean(abs(x-AM), na.rm = na.rm)
}

Try the MKmisc package in your browser