R/kurtcoeff.R

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 2, 2019, 6:53 a.m.