对三维矩阵的操作

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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循环编代码，请大神指导，谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：for循环 For

apply(XYZ, c(1,3), sum)

conbrownkkk 发表于 2019-12-7 15:57
apply(XYZ, c(1,3), sum)

厉害，多谢了！

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)