yangby926 发表于 2012-6-2 10:49
list我试过还是只得到最后一次循环的结果
比如
n=10
针对这个问题,不知如下代码是否符合你的需求?
- n=10
- a=rep(1:10)
- for ( i in 1:5)
- { M=matrix(0,i, 10-i)
- M[i,]=10-a[ i ]
- if(i==1){M_list<-list(M1=M)}
- else{
- M_list$NewMat<-M
- names(M_list)[ names(M_list)=='NewMat']<-paste('M', i, sep='')
- }
- }
复制代码
M_list的内容如下:
$M1
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 9 9 9 9 9 9 9 9 9
$M2
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
[1,] 0 0 0 0 0 0 0 0
[2,] 8 8 8 8 8 8 8 8
$M3
[,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,] 0 0 0 0 0 0 0
[2,] 0 0 0 0 0 0 0
[3,] 7 7 7 7 7 7 7
$M4
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 0 0 0 0 0 0
[2,] 0 0 0 0 0 0
[3,] 0 0 0 0 0 0
[4,] 6 6 6 6 6 6
$M5
[,1] [,2] [,3] [,4] [,5]
[1,] 0 0 0 0 0
[2,] 0 0 0 0 0
[3,] 0 0 0 0 0
[4,] 0 0 0 0 0
[5,] 5 5 5 5 5