R/ssd_from_mean.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Sum of squared deviations from mean
#' 
#' @param x Numeric vector for which sum of squared deviation from the mean is to be computed.
#' @param na.rm Boolean indicating whether to remove NAs. Defults to TRUE.
#' @export


ssd_from_mean = function(x,na.rm=T) sum((mean(x,na.rm=na.rm) - x)^2,na.rm=na.rm)