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")
}

Try the AlphaBeta package in your browser

Any scripts or data that you put into this service are public.

AlphaBeta documentation built on Nov. 8, 2020, 6:30 p.m.