Bonjour, je souhaiterais effectuer un tri conditionnel sur un array de dimension 3

dans l'exemple ci dessous, j'effectue la somme des lignes de chacune des deux matrices (4x3) indicées par la 3ième dimension, puis j'ordonne la somme de ces lignes. Je souhaiterais ensuite permuter les colonnes de chaque matrice sur la base de l'ordre obtenu (et propre à chaque matrice)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
t<-rnorm(24)
dim(t)<-c(4,3,2)
t1<-apply(t,c(2,3),sum)
cond<-t(apply(t1,2,order))
en dimension 2 je n'ai pas de difficultés je procèderais ainsi:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
t2<-t[,,1]
cond2<-apply(t2,2,sum)
t2[,order(cond2)]
mon problème: je ne trouve pas d'expression equivalente à utiliser pour mon array. Le code suivant ne marche pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
t[,order(cond)]
Merci de votre aide!