1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
test=matrix(c(0.03, 0.41, 0.12, 0.61, 0.60, 0.17, 0.95, 0.46, 0.62),ncol=3)
test2=matrix(c(0.89, 0.34, 0.57, 0.52, 0.62, 0.28, 0.69, 0.27, 0.15),ncol=3)
test3=matrix(c(1.00,0.42,0.08,0.32,0.24,0.80,0.70,0.22,0.12),ncol=3)
mat=list(test,test2,test3)
#liste de matrices
#[[1]]
# [,1] [,2] [,3]
#[1,] 0.03 0.61 0.95
#[2,] 0.41 0.60 0.46
#[3,] 0.12 0.17 0.62
#[[2]]
# [,1] [,2] [,3]
#[1,] 0.89 0.52 0.69
#[2,] 0.34 0.62 0.27
#[3,] 0.57 0.28 0.15
#[[3]]
# [,1] [,2] [,3]
#[1,] 1.00 0.32 0.70
#[2,] 0.42 0.24 0.22
#[3,] 0.08 0.80 0.12
#jexécute les lignes qui correspondent à la création de la matrice globale
pas <- nrow(mat[[1]])
mat_glob <- mat[[1]]
for(i in 2:length(mat)){
mat_glob <- matrix(c(mat_glob,mat[[i]]),byrow=T,ncol=pas)
}
#résultat
mat_glob
# [,1] [,2] [,3]
#[1,] 0.03 0.61 0.95
#[2,] 0.89 0.52 0.69
#[3,] 0.41 0.60 0.46
#[4,] 0.34 0.62 0.27
#[5,] 0.12 0.17 0.62
#[6,] 0.57 0.28 0.15
#[7,] 1.00 0.42 0.08
#[8,] 0.32 0.24 0.80
#[9,] 0.70 0.22 0.12
#on voit bien qu'il y a un décalage, les trois matrices ne sont pas collées les #unes après les autres |
Partager