R/delayt.R

delayt <- function(sec) {
  start <- Sys.time()
  kk <- 0
  while(Sys.time() - start <= sec) kk <- kk + 1
  return(kk)
}

Try the cwhmisc package in your browser

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

cwhmisc documentation built on May 1, 2019, 7:55 p.m.