R/time.R

Defines functions stopTime startTime

startTime <- function(...) {
  x <- paste0(..., collapse='')
  message(x, appendLF=FALSE)
  st <- proc.time()
  return(st)
}
stopTime <- function(st) {
  sttime <- proc.time() - st
  message("Total time: ", round(sttime[3],2), "s")
}
jlab-code/AlphaBeta documentation built on April 23, 2022, 11:02 a.m.