if(require("itertools")) {
baseball_id <- isplit2(baseball, baseball$id)
liply(baseball_id, summarise, mean_rbi = mean(rbi, na.rm = TRUE))
system.time(dlply(baseball, "id", summarise, mean_rbi = mean(rbi)))
}
Run the code above in your browser using DataLab