我正在尝试让一个函数运行指定的时间量,目前我正在尝试使用 system.time
函数。我不知道如何定义一个新变量,该变量在函数运行时具有累积值,然后将其放入 while 循环。
timer<-(system.time(simulated_results<-replicate(n=1,simulation(J,10000,FALSE,0.1),simplify="vector"))[3])
print(timer)
while(cumsum(timer)<15){
print(cumsum(timer))
simulated_results<-replicate(n=10000,simulation(J,10000,FALSE,0.1),simplify="vector")
}
如果有任何帮助,我将不胜感激!!!
最佳答案
如果你想在指定的秒数内运行一些代码,你可以尝试以下方法:
start <- as.numeric(Sys.time())
duration <- 5
results <- NULL
while(as.numeric(Sys.time())-start < duration) {
results <- c(results, replicate(...))
}
当然,您必须更改 duration
的值(以秒为单位),并将 replicate(...)
替换为您的代码。
关于在 R 中运行指定时间的函数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14552128/