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