transpose benchmark

[tdhock]

Rdatatable/data.table#5805 (comment)

[tdhock]

atime.result <- atime::atime(
  N=10^seq(1, 9, by=0.5),
  setup={
    set.seed(1)
    l = list(sample(N), sample(letters, N, TRUE))
  },
  base = lapply(seq(length(l[[1]])), function(x) lapply(l, `[[`, x)),
  dt = data.table::transpose(l, list.cols=TRUE),
  seconds.limit=1
)
atime.refs <- atime::references_best(atime.result)
plot(atime.refs)
atime.pred <- predict(atime.refs, seconds=1, kilobytes=1000)
plot(atime.pred)