chunk.R

#' Clever chunking algorithm into roughly equal parts
#' http://stackoverflow.com/questions/2130016/splitting-a-list-of-arbitrary-size-into-only-roughly-n-equal-parts
chunk <- function(x, k) {
  n <- length(x)
  q <- n %/% k
  r <- n %% k
  lapply(seq.int(1, k), function(i) {
    x[seq(from = (i - 1)*q + min(i - 1, r) + 1, to = i * q + min(i, r))]
  })
}