r循环语句，带两个循环变量的程序，怎么写？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

比如两个变量i，j   
i=1:4    j=1:30
公式y=j+10i
计算出的y是矩阵
这个循环该怎么写呢？

扫码加我 拉你入群

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

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

分享0 收藏4 回帖

关键词：循环语句 程序

你要的循环：
i <- 1:4; j <- 1:30;  # i and j
ni<- length(i); nj <- length(j)  # lengths of i and j
y <- matrix(NA, nj, ni) # initiate a matrix with nj rows and ni columns
for (k in 1:ni){
for (p in 1:nj){
y [p, k] <- i[k] * 10 + j[p]  # fill the matrix
}
}

一个更简洁的方法：
matrix(rep(i, each=nj) * 10+rep(j, ni), nj, ni)

jz.mraz 发表于 2015-2-10 23:10
你要的循环：
i

谢谢  

jz.mraz 发表于 2015-2-10 23:10
你要的循环：
i

原来rep()还可以这样用~
rep(i, each=nj)
这个方法好简洁啊，赞~

rixingrixing 发表于 2015-2-11 11:43
原来rep()还可以这样用~
rep(i, each=nj)
这个方法好简洁啊，赞~

学习了，赞！

1. outer(1:4, 1:30, function(x, y) 10*x + y)

复制代码

zhangyangsmith 发表于 2015-2-13 15:41

这个数组函数实用

jz.mraz 发表于 2015-2-10 23:10
你要的循环：
i

确实是很精简，很灵活！

dd1=matrix(NA,4,30);dd1

for (i in 1:4 )
{
    for (j in 1:30 )
   {
   dd1[i, j] =j+10*i
    }
}

dd1

zhangyangsmith 发表于 2015-2-13 15:41

高手，学习了