powered by
Sample skewness and Sample Kurtosis.
kurtosis(x)skewness(x)
skewness(x)
kurtosis returns sample kurtosis.
kurtosis
skewness returns sample skewness.
skewness
univariate data sample
Sample kurtosis is $$ \hat{\kappa}_4 = \dfrac{1}{n-1} \sum_{i = 1}^n \left(\dfrac{X_i - \bar{X}}{S}\right)^4. $$
Sample skewness is $$ \hat{\kappa}_3 = \dfrac{1}{n-1} \sum_{i = 1}^n \left(\dfrac{X_i - \bar{X}}{S}\right)^3. $$
set.seed(123) y <- rnorm(100) kurtosis(y) set.seed(123) x <- rnorm(100) skewness(x)
Run the code above in your browser using DataLab