求助：一个循环的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我有下面一段程序。简单的讲，就是t+d=cp中的每一项。t和d的顺序是相反的。

cp <- c(28,3,4)

for (i in cp ){
  d <- 0
  while (d < i){
    t= i - d
    d = d + 1
  }}


问题是我跑完程序只有最后一个t和d，也就是d=4，t=1

怎么让d和t变成数组，记录所有的值。

谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

1. cp <- c(28,3,4)
   
2. n <- length(cp);
   
3. dt <- NULL
   
4. for (i in cp ){
   
5.   d <- 0
   
6.   while (d < i){
   
7.     t= i - d
   
8.     d = d + 1
   
9.   dt <- rbind(dt,c(t,d))
   
10.   }}

复制代码

明白了：rbind()

谢谢！

1. newF <- function (a, b, c) {
   
2.   cp <- c(a, b, c)
   
3.   d <- c()
   
4.   t <- c()
   
5.   
   
6.   for (i in cp) {
   
7.     j <- 0
   
8.     while (j < i) {
   
9.       d <- c(d, j)
   
10.       t <- c(t, i - j)
    
11.       j <- j + 1
    
12.     }
    
13.   }
    
14.   
    
15.   dtm <- matrix(c(d, t), nrow = sum(cp))
    
16.   
    
17.   newList <-
    
18.     list(cp[1], dtm[1:cp[1],],
    
19.         cp[2], dtm[(cp[1] + 1):(cp[1] + cp[2]),],
    
20.         cp[3], dtm[(sum(cp) - cp[3] + 1):sum(cp),])
    
21. }
    
22. m <- newF(28, 3, 4)
    
23. m

复制代码