Sample estimate of skewness This function will eventually have a robust estimation option
SKest(x)
x
A numeric vector
numeric value of estimate of skewness
args(SKest)