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]])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.