2016-08-25 64 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

謝謝我會測試它 –