Displaying 1 result from an estimated 1 matches for "myqcskewness".
1999 Jul 28
1
skewness, kurtosis
...ess <- 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 "quantile-c...