R/toc.R

In CINOEDV: Co-Information based N-Order Epistasis Detector and Visualizer

Defines functions toc

Documented in toc

toc <-
function(){
  # time function for measuring, like 'toc' in Matlab
  #
  # Junliang Shang
  # 3.26/2014
  
  type <- get(".type", envir=baseenv())
  toc <- proc.time()[type]
  tic <- get(".tic", envir=baseenv())
  print(toc - tic)
  invisible(toc)
}

Try the CINOEDV package in your browser