[R] Skewness and Kurtosis

[Uwe Ligges]

Vito Ricci wrote:

> Hi,
> 
> in which R-package I could find skewness and kurtosis
> measures for a distribution?

Both funcions are in package "e1071".

Uwe Ligges

> I built some functions:
> 
> gamma1<-function(x)
> {
> m=mean(x)
> n=length(x)
> s=sqrt(var(x))
> m3=sum((x-m)^3)/n
> g1=m3/(s^3)
> return(g1)
> }
> 
> skewness<-function(x)
> {
> m=mean(x)
> me=median(x)
> s=sqrt(var(x))
> sk=(m-me)/s
> return(sk)
> }
> 
> bowley<-function(x)
> {
> q<-as.vector(quantile(x,prob=c(.25,.50,.75)))
> b=(q[3]+q[1]-2*q[2])/(q[3]-q[2])
> return(b)
> }
> 
> b3<-function(x)
> {
> m=mean(x)
> me=median(x)
> n=length(x)
> d=sum(abs(x-me))/n
> b=(m-me)/d
> return(b)
> }
> 
> but I'm looking for some already included in a
> package.
> 
> Thanks in advance.
> Best
> Vito
> 
> 
> =====
> Diventare costruttori di soluzioni
> 
> "The business of the statistician is to catalyze 
> the scientific learning process."  
> George E. P. Box
> 
> 
> Visitate il portale http://www.modugno.it/
> e in particolare la sezione su Palese http://www.modugno.it/archivio/cat_palese.shtml
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html