fivenum(x),sd(x)不过要注意R中求得结果为样本标准差,求有偏标准差我编了一个: sd2=function(x) {
u=mean(x)
y=c(x,u)
z=sd(y)
return (z)
}
sd3=function(x){ #x为数据框
f=scale3(x)
u=attr(f,"scaled:scale")
return(u)
}
scale2=function(x){ #x为向量
h=(x-mean(x))/sd2(x)
return(h)
}
scale3=function(x) { #x为数据框
y=apply(x,2,mean)
z=rbind(x,y)
co=scale(z)
return(co)
}