Fetching contributors…
Cannot retrieve contributors at this time
9 lines (6 sloc) 263 Bytes
if (!exists("bench6")) load("benchmark.rdata")
bench("6-num", splitter_d(bench6, .(group_c)))
bench("6-chr", splitter_d(bench6, .(char)))
bench("6-fac", splitter_d(bench6, .(factor)))
# d <- splitter_d(bench6, .(group_c))
# system.time(for(i in 1:1000) d[[i]])