# Mardia's kurtosis example
x <- matrix(rnorm(100*5), ncol=5)
SampleKurt(x, Type = "Mardia")
# MRSz's kurtosis example
SampleKurt(x, Type = "MRSz")
# Total kurtosis example
SampleKurt(x, Type = "Total")
Run the code above in your browser using DataLab