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
内容来源于网络如有侵权请私信删除
你还没有登录,请先登录注册
  • 还没有人评论,欢迎说说您的想法!