36--diag（）
- 如果它的参数是一个矩阵，它返回的是一个向量
- 如果它的参数是一个向量，它返回的是一个向量
- 如果它的参数是一个标量，它返回的是指定大小的单位矩阵
> diag(2)
[,1] [,2]
[1,] 1 0
[2,] 0 1
> diag(2,3)
[,1] [,2] [,3]
[1,] 2 0 0
[2,] 0 2 0
[3,] 0 0 2
> diag(2,3,4)
[,1] [,2] [,3] [,4]
[1,] 2 0 0 0
[2,] 0 2 0 0
[3,] 0 0 2 0
> m <- matrix(1:4, nrow = 2)
> dm <- diag(m)
> dm
[1] 1 4
> diag(dm)
[,1] [,2]
[1,] 1 0
[2,] 0 4
37--sweep( )
sweep( )函数中的前两个参数类似于apply中的参数：数组和方向，在下面这个例子中，方向是1，表示按行计算，第四个参数表示的是要使用的函数，第三个参数是这个函数的参数。
> m
[,1] [,2]
[1,] 1 3
[2,] 2 4
> sweep(m, 1, c(2, 3), "+")
[,1] [,2]
[1,] 3 5
[2,] 5 7
38--%in%
c%in%y ：检验c是否为集合y中的元素
> y <- c(1,3,5)
> 3%in%y
[1] TRUE
> 2%in%y
[1] FALSE
39--setequal（）
setequal（x，y）检验x和y是否相等
> x <- c(1,2,3)
> y <- c(1,3,5)
> setequal(x, y)
[1] FALSE
> setequal(x, 1:3)
[1] TRUE
40--combn( )
combn( ) 用于产生集合元素的组合。
例如找出1到4中含有2个元素的子集，并对每个子集求和。
> combn(1:4, 2)
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 1 1 1 2 2 3
[2,] 2 3 4 3 4 4
> combn(1:4, 2, sum)
[1] 3 4 5 5 6 7