将输出存储到表中

Question

我正在尝试创建一个基本的觅食模型，目前我得到的输出如下：

repeats= 1 time= 19 : food eaten= 100 
repeats= 2 time= 33 : food eaten= 100 
repeats= 3 time= 1001 : food eaten= 100

对于每个循环，我感兴趣的输出是＆＃34; time＆＃34;。

有没有一种简单的方法来创建一个可以存储重复和时间的表？

Answer 1

我不知道这是否接近你正在寻找的东西。这是一个循环，循环＃和时间存储在数据帧中：

loops <- 5
repeats <- vector("numeric", loops)
time <- vector("numeric", loops)
start <- Sys.time()
for(i in seq_along(repeats)) {

  repeats[i] <- i
  Sys.sleep(1) # This suspends execution for a second
  time[i] <- Sys.time() - start
}

results <- cbind(repeats, time)
results
     repeats     time
[1,]       1 0.989223
[2,]       2 2.029239
[3,]       3 3.018046
[4,]       4 4.034053
[5,]       5 5.049059

我在每个循环中加入1秒钟的悬浮液，这样输出中的时间差异就很明显了。