data_lookups.R

time <- function(...) { 
  time_measurement <- system.time(eval(...)) 
  time_measurement[["user.self"]] 
} 

benchmark <- function(..., n = 100) { 
  times <- replicate(n, ...) 
  c(min = min(times), max = max(times), mean = mean(times)) 
}