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