halpo

################################################################################
all:pdf  # default rule DO NOT EDIT
################################################################################
MAINFILE  := main
RNWFILES  := 
RFILES    := 
TEXFILES  := 
CACHEDIR  := cache
FIGUREDIR := figures
DRIVER    := pgfSweave

halpo

#' formats proc_time as a "hh:mm:ss" time string
#' 
#' @seeAlso print.proc_time, proc.time
#'
formatTime <- function(x){
  stopifnot(inherits(x, "proc_time"))
  h <- x %/% 3600L
  m <- (x %% 3600L) %/% 60L
  s <- x %% 60L
  ifelse(is.na(x), NA, sprintf("%02d:%02d:%2.2f",h,m,s))