矩阵赋值问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有一个500x10的矩阵A，分别取出1~5行赋值给矩阵A1，6~10行赋值给A2，...., 496~500行给A100 ， 该用什么命令？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

比较土的办法是循环啊。

1. A <- matrix(1:(500*10), nrow = 500, byrow = T)
   
2. for (i in 1:100) {
   
3.     assign(paste("A", i, sep = ""), A[(5*(i-1)+1):(5*i), ])
   
4. }

复制代码

能具体点吗？我就是没想到办法才求助的，谢谢

谢谢。

不需要这么弄的，可以利用list格式存储数据。

R高手越来越多了

我最初也是想到用list，但没成功

1. a<-round(matrix(rnorm(1000),100,10),3)
   
2. split.a<-split(a,rep(1:20,each=5))
   
3. list.a<-lapply(split.a,function(x) matrix(x,ncol=10))
   
4. names(list.a)<-paste('A',1:20,sep='')
   
5. rm(a,split.a);list.a

复制代码

欢迎各位高手指教，学学不同的命令