Appendix 01 Benchmarking R Performance

library("microbenchmark") set.seed(1) d <- data.frame(V1=rnorm(1e6), V2=rnorm(1e6)) cbindSeqLen <- function(x) { return(cbind(id=seq_len(nrow(x)), x)) } dickoa <- function(x) { x$id <- seq_len(nrow(x)) return(x) } dickoaReorder <- function(x) { x$id <- seq_len(nrow(x)) nc <- ncol(x) x <- x[, c(nc, 1:(nc-1))] return(x) } microbenchmark(cbindSeqLen(d), dickoa(d), dickoaReorder(d), times=100)

Output