全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
1486 3
2019-12-07
3*3*3的3维矩阵XYZ如下所示:

, ,  = [1,5.33]
           
               [1,5] (5,9] (9,13]
  [0.1,0.4]     2     0      1
  (0.4,0.7]     0     0      1
   (0.7,1]       1     0      0
, ,  = (5.33,9.67]
           
               [1,5] (5,9] (9,13]
  [0.1,0.4]     0     1      0
  (0.4,0.7]     0     0      0
   (0.7,1]       0     1      0
, ,  = (9.67,14]
           
               [1,5] (5,9] (9,13]
  [0.1,0.4]     0     0      0
  (0.4,0.7]     1     1      0
   (0.7,1]       0     0      1

#######################################

如上3*3*3的3维矩阵想得到XZ, 办法为:
XYZ[,1,] + XYZ[,2,] + XYZ[,3,]

#######################################

若想推广n*m*k的3维矩阵,得到XZ,怎么不用for循环编代码,请大神指导,谢谢!


二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

全部回复
2019-12-7 15:57:01
apply(XYZ, c(1,3), sum)
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2019-12-7 16:36:20
conbrownkkk 发表于 2019-12-7 15:57
apply(XYZ, c(1,3), sum)
厉害,多谢了!
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2019-12-7 16:45:40
XY  <- rowSums(XYZ, dims = 2L)

YZ  <- colSums(XYZ, dims = 1L)

XZ  <- apply(XYZ, c(1,3), sum)

X    <- rowSums(XYZ, dims = 1L)

Y    <- apply(XYZ[,,], 2, sum)

Z    <- colSums(XYZ, dims = 2L)
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群