R/sdv.R

Defines functions standard_deviation

standard_deviation <- function(x) {
  n <- length(x)
  mean = sum(x) / n
  ssq <- sum((x-mean)^2)
  stddev = sqrt(ssq/n)
  return(stddev)
}
Anmol6/524_1R documentation built on May 5, 2019, 6:03 a.m.