3-6 向量化操作

> x <- 1:5

> y <- 6:10

> x+y
[1]  7  9 11 13 15

> x*y
[1]  6 14 24 36 50

> x/y
[1] 0.1666667 0.2857143 0.3750000 0.4444444 0.5000000

> x <- matrix(1:4,nrow=2,ncol=2)

> y <- matrix(rep(2,4),nrow=2,ncol=2)

> x
     [,1] [,2]
[1,]    1    3
[2,]    2    4

> y
     [,1] [,2]
[1,]    2    2
[2,]    2    2

> x+y
     [,1] [,2]
[1,]    3    5
[2,]    4    6

> x*y
     [,1] [,2]
[1,]    2    6
[2,]    4    8

> x/y
     [,1] [,2]
[1,]  0.5  1.5
[2,]  1.0  2.0