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