R/sum_squares.R

In JoWatson2011/mypackage: R forwards tutotrial

#' Calculate the sum of squares for a sample
#'
#' returs the sum of the squared deviations
#'
#' @param v a vector of numerical values
#'
#' @return number
#' @export
#'
#' @examples
#' sum_squares(rnorm(50))
sum_squares <- function(v){
  sum((v - mean(v))^2)
}