R/kurtcoeff.R

Defines functions kurtcoeff

Documented in kurtcoeff

kurtcoeff <-
function (x) {
  x <- x[!is.na(x)]
  n <- length(x)
  mx <- mean(x); sx <- sd(x)*sqrt((n-1)/n)
  kurt <- mean((x-mx)^4)/sx^4
  return(kurt)
}

Try the ACSWR package in your browser

Any scripts or data that you put into this service are public.

ACSWR documentation built on May 29, 2017, 8:41 p.m.