你要的循环：
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)

谢谢  

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

学习了，赞！