R/tictoc.R

In flipflop: Fast lasso-based isoform prediction as a flow problem

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())
   tic <- get(".tic", envir=baseenv())
   toc <- proc.time()[type] - tic
   invisible(toc)
}