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

data_show<-function(x)
{
    n<-length(x)
    m<-mean(x)
    v<-var(x)
    s<-sd(x)
    me<-median(x)
    cv<-*s/m
    css<-sum((x-m)^)
    uss<-sum(x^)
    r<-max(x)-min(x)
    R1<-quantile(x,0.75)-quantile(x,0.25)
    sm<-s/sqrt(n)
    g1<-n/((n-)*(n-))*sum((x-m)^)/s^
    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=)
}