2016-08-25 63 views
0

我想为每四个矩阵应用一个函数,例如从我的实际数据中的1:4然后是5:8然后是9:12; 13:16,17:20,21:24等等开始应用如何分隔数组中的矩阵?

k = 24; n=3; m = 4 
ary=array(1:24, c(n,m,k)) 

str(ary) 
int [1:3, 1:4, 1:24] 1 2 3 4 5 6 7 8 9 10 ... 
for each four matrices in ary fun {.........} 
+0

如果你'暗淡(元)< - C(变暗(元)[1:2 ],4,dim(ary)[3]/4)''你可以'在第四维上应用'。 – Roland

+0

感谢@Roland如何应用于第四维? –

+0

'适用(ary,4,sum)' – Roland

回答

1

如果你想使用for -loop作为问题提出,只要做到以下几点:

Seq <- seq(1, 24, 4) 
for (i in Seq){ 
    ## i is 1, 5, 9, 13, 17, 21 
    ary[ , , i:(i+3)] #get's you the array with just four matrices 
    # do something ... 
} 
+0

谢谢我会测试它 –