对数据进行正态化：使用scale()函数

> marks

   student.name math science english sum order

1          john  502      95      25 622     4

2        angela  600      99      22 721     7

3          bull  412      80      18 510     3

4         david  358      82      15 455     5

5        janice  495      75      20 590     1

6        cheryl  512      85      28 625     6

7        reuven  410      80      15 505    10

8          greg  625      95      30 750     9

9          joel  573      89      27 689     2

10        ,mary  522      86      18 626     8

> mydata<-scale(marks$math) #使用scale函数对marks$math列数据进行标准正态化处理

> mydata

             [,1]

[1,]  0.01269128

[2,]  1.14336936

[3,] -1.02568654

[4,] -1.64871324

[5,] -0.06807144

[6,]  0.12806660

[7,] -1.04876160

[8,]  1.43180765

[9,]  0.83185601

[10,]  0.24344191

attr(,"scaled:center")

[1] 500.9

attr(,"scaled:scale")

[1] 86.67365

> newdata<-scale(marks$math)*10+10 #使用scale函数对数列进行标准差为10，均值为10的标准化。使用方法是scale(x)*sd+mean

> newdata

            [,1]

[1,] 10.1269128

[2,] 21.4336936

[3,] -0.2568654

[4,] -6.4871324

[5,]  9.3192856

[6,] 11.2806660

[7,] -0.4876160

[8,] 24.3180765

[9,] 18.3185601

[10,] 12.4344191

attr(,"scaled:center")

[1] 500.9

attr(,"scaled:scale")

[1] 86.67365

>