agostino.test(x, alternative = c("two.sided", "less", "greater"))
htest
containing the following components:D'Agostino, R.B. (1970). Transformation to Normality of the Null Distribution of G1. Biometrika, 57, 3, 679-681.
skewness
set.seed(1234) x = rnorm(1000) skewness(x) agostino.test(x)