是否存在类似于MATLAB的tic/toc的R计时器或秒表功能?
最佳答案
正如Dirk提到的,R中有很多分析工具。如果您想要tic / toc的简单性,那么也可以在R中做到这一点。
编辑:我已经蚕食了MATLAB程序包中的垃圾收集功能,现在tic
允许您选择对总经过时间还是仅对用户时间感兴趣。
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(); invisible(qr(matrix(runif(1e6), nrow=1e3))); toc()
关于matlab - R中的秒表功能,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/1716012/