search for: qcsk

...s <- function(x) { m3 <- mean((x-mean(x))^3) skew <- m3/(sd(x)^3) skew } I would also suggest to include the quartile-coefficient of skewness (sorry if this translation from German is not correct). This measure is confined to the interval [0,1] and much easier to interpret. My try: myqcskewness <- function(x) { x25 <- as.double(quantile(x,prob=0.25)) x75 <- as.double(quantile(x,prob=0.75)) qcsk <- (x25+x75-2*mean(x))/(x75-x25) qcsk } Finally a question which actually is not R-related (please excuse this misuse of the list): Is there something like a "quan...