Permalink
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (6 sloc) 306 Bytes
if (!exists("bench6")) load("benchmark.rdata")
tabdf <- function(x) as.data.frame(table(x))
bench("tabdf-6-a", tabdf(bench6["group_a"]))
bench("count-6-a", count(bench6["group_a"]))
bench("tabdf-6-ab", tabdf(bench6[c("group_a", "group_b")]))
bench("count-6-ab", count(bench6[c("group_a", "group_b")]))