benchmark/bench-id.r

In hadley/plyr: Tools for Splitting, Applying and Combining Data

# Benchmark for id function
if (!exists("bench6")) load("benchmark.rdata")
# source("bench.r")

bench("num", id(bench6["group_a"]))
bench("chr", id(bench6["char"]))
bench("fac", id(bench6["factor"]))

bench("num-num", id(bench6[c("group_a", "group_b")]))
bench("num-fac", id(bench6[c("group_a","factor")]))