# NOT RUN {
# Compute Bowley's univariate skewness
set.seed(2019)
x <- rnorm(1000) # Normal Distribution
BowleySkew(x)
set.seed(2019)
y <- rlnorm(1000, meanlog = 1, sdlog = 0.25) # Log-normal Distribution
BowleySkew(y)
# }
Run the code above in your browser using DataLab