利用scale函数得到均值、标准差

## 通常使用scale函数可以直接得到Z分数 ##
x <- scale(data)

## 需要均值标准差时，直接可以在输出里看到 ##

scale(data)

## 如果想取出均值标准差 ##
mean <- attr(x,'scaled:center')
std <- attr(x,'scaled:scale')