R/sum_square_function.R

In kygoffe/mypackage: Some simple utilities for a large sample (R ladies workshop)

#' Calculate the sums of squares for a sample
#'
#' returns the sum of the squared deviations
#'
#' from mean, sums of squares(x) of a numeric vector
#'
#' @param v numeric vector
#'
#' @return number
#' @export
#'
#' @examples
#' sum_squares_function(rnorm(50))
sum_squares_function <- function(v){
  sum((v - mean(v))^2)
}