powered by
4th moment kurtosis ratio
kurt(x)
vector
skew
set.seed(1) x <- rexp(100) # Get kurtosis coefficient estimate for exponential distribution kurt(x)
Run the code above in your browser using DataLab