获取以毫秒为单位的执行时间
获取以毫秒为单位的执行时间
提问于 2011-09-26 00:42:13
我已经阅读了一个使用tic(), toc() functions的解决方案
tic <- function(gcFirst = TRUE, type=c("elapsed", "user.self", "sys.self"))
{
type <- match.arg(type)
assign(".type", type, envir=baseenv())
if(gcFirst) gc(FALSE)
tic <- proc.time()[type]
assign(".tic", tic, envir=baseenv())
invisible(tic)
}
toc <- function()
{
type <- get(".type", envir=baseenv())
toc <- proc.time()[type]
tic <- get(".tic", envir=baseenv())
print(toc - tic)
invisible(toc)
}
tic();
-----code----
toc();
elapsed
0.15 但是我想得到很多毫秒的精度？
另外，我还用了这个
ptm <- proc.time()
---code
proc.time() - ptm然后得到这个
user system elapsed
1.55 0.25 1.84 如何获得更多的小数或更高的精度？
回答 2
Stack Overflow用户
发布于 2016-04-15 19:50:30
这一条很好：
options(digits.secs = 6) # This is set so that milliseconds are displayed
start.time <- Sys.time()
...Relevant code...
end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken摘自here。
Stack Overflow用户
发布于 2018-05-23 23:54:55
将start_time放在代码之前，将end_time放在代码之后。
即
start_time <- as.numeric(as.numeric(Sys.time())*1000, digits=15) # place at start
-----code----
end_time <- as.numeric(as.numeric(Sys.time())*1000, digits=15) # place at end
end_time - start_time # run time (in milliseconds)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/7546946
复制相关文章
相似问题
腾讯云开发者
