R/theskew.R

theskew <-
function (x) {
# skew and kurtosis from  the e1071 package.
x<-as.vector(x)
 sum((x-mean(x))^3)/(length(x)*sd(x)^3)
 }

Try the cgwtools package in your browser

Any scripts or data that you put into this service are public.

cgwtools documentation built on Oct. 21, 2023, 1:06 a.m.