【R】自定义描述统计函数-从均值到峰度偏度

data_show<-function(x)
{
    n<-length(x)
    m<-mean(x)
    v<-var(x)
    s<-sd(x)
    me<-median(x)
    cv<-100*s/m
    css<-sum((x-m)^2)
    uss<-sum(x^2)
    r<-max(x)-min(x)
    R1<-quantile(x,0.75)-quantile(x,0.25)
    sm<-s/sqrt(n)
    g1<-n/((n-1)*(n-2))*sum((x-m)^3)/s^3
    data.frame(N=n,Mean=m,Var=v,std_dev=s,Median=me,ste_mean=sm,CV=cv,CSS=css,USS=uss,R=r,R1=R1,Skewness=g1,row.names=1)
}