Discussion :

[ursulinatm]

Bonjour à tous!

J'ai un soucis avec mon script je pense ça ne doit pas être bien compliqué.
Je veux remplir le triangle inférieur d'une matrice (sans compter la diagonale) avec un vecteur x comme ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
mat=matrix(nrow=4,ncol=4)
x=seq(1,6)
mat[lower.tri(mat, diag=F)]<-x
 
#mat
#     [,1] [,2] [,3] [,4]
#[1,]   NA   NA   NA   NA
#[2,]    1   NA   NA   NA
#[3,]    2    4   NA   NA
#[4,]    3    5    6   NA

Le problème c'est que le remplissage se fait par colonne alors que je voudrais que ça se fasse par ligne comme ci dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
#mat
#     [,1] [,2] [,3] [,4]
#[1,]   NA   NA   NA   NA
#[2,]    1   NA   NA   NA
#[3,]    2    3   NA   NA
#[4,]    4    5    6   NA

J'ai tenté de caler l'argument byrow=T mais ça ne marche pas.
Quelqu'un aurait une idée ?

Merci!

[Gakusei]

Bonjour,

Petite astuce avec la transposée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
mat=matrix(nrow=4,ncol=4)
x=seq(1,6)
mat[upper.tri(mat, diag=F)]<-x
mat=t(mat)


> mat
     [,1] [,2] [,3] [,4]
[1,]   NA   NA   NA   NA
[2,]    1   NA   NA   NA
[3,]    2    3   NA   NA
[4,]    4    5    6   NA