Become an expert in R — Interactive courses, Cheat Sheets, certificates and more!
Get Started for Free

mardiaKurtosis

Finding Mardia's multivariate kurtosis


Description

Finding Mardia's multivariate kurtosis of multiple variables

Usage

mardiaKurtosis(dat, use = "everything")

Arguments

dat

The target matrix or data frame with multiple variables

use

Missing data handling method from the cov function.

Details

The Mardia's multivariate kurtosis formula (Mardia, 1970) is

b_{2, d} = \frac{1}{n}∑^n_{i=1}≤ft[ ≤ft(\bold{X}_i - \bold{\bar{X}} \right)^{'} \bold{S}^{-1} ≤ft(\bold{X}_i - \bold{\bar{X}} \right) \right]^2,

where d is the number of variables, X is the target dataset with multiple variables, n is the sample size, \bold{S} is the sample covariance matrix of the target dataset, and \bold{\bar{X}} is the mean vectors of the target dataset binded in n rows. When the population multivariate kurtosis is normal, the b_{2,d} is asymptotically distributed as normal distribution with the mean of d(d + 2) and variance of 8d(d + 2)/n.

Value

A value of a Mardia's multivariate kurtosis with a test statistic

Author(s)

Sunthud Pornprasertmanit (psunthud@gmail.com)

References

Mardia, K. V. (1970). Measures of multivariate skewness and kurtosis with applications. Biometrika, 57(3), 519–530. doi: 10.2307/2334770

See Also

  • skew Find the univariate skewness of a variable

  • kurtosis Find the univariate excessive kurtosis of a variable

  • mardiaSkew Find the Mardia's multivariate skewness of a set of variables

Examples

library(lavaan)
mardiaKurtosis(HolzingerSwineford1939[ , paste0("x", 1:9)])

semTools

Useful Tools for Structural Equation Modeling

v0.5-4
GPL (>= 2)
Authors
Terrence D. Jorgensen [aut, cre] (<https://orcid.org/0000-0001-5111-6773>), Sunthud Pornprasertmanit [aut], Alexander M. Schoemann [aut] (<https://orcid.org/0000-0002-8479-8798>), Yves Rosseel [aut] (<https://orcid.org/0000-0002-4129-4477>), Patrick Miller [ctb], Corbin Quick [ctb], Mauricio Garnier-Villarreal [ctb] (<https://orcid.org/0000-0002-2951-6647>), James Selig [ctb], Aaron Boulton [ctb], Kristopher Preacher [ctb], Donna Coffman [ctb], Mijke Rhemtulla [ctb] (<https://orcid.org/0000-0003-2572-2424>), Alexander Robitzsch [ctb] (<https://orcid.org/0000-0002-8226-3132>), Craig Enders [ctb], Ruben Arslan [ctb] (<https://orcid.org/0000-0002-6670-5658>), Bell Clinton [ctb], Pavel Panko [ctb], Edgar Merkle [ctb] (<https://orcid.org/0000-0001-7158-0653>), Steven Chesnut [ctb], Jarrett Byrnes [ctb], Jason D. Rights [ctb], Ylenio Longo [ctb], Maxwell Mansolf [ctb] (<https://orcid.org/0000-0001-6861-8657>), Mattan S. Ben-Shachar [ctb] (<https://orcid.org/0000-0002-4287-4801>), Mikko Rönkkö [ctb] (<https://orcid.org/0000-0001-7988-7609>)
Initial release

We don't support your browser anymore

Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.