## Not run:
#
# l <- sapply(1:20000, function(x) list(rnorm(1000)))
# head(sapply_pb(l, mean))
#
# # performance comparison
# l <- sapply(1:20000, function(x) list(rnorm(1000)))
# system.time(sapply(l, mean))
# system.time(sapply_pb(l, mean))
#
# ## End(Not run)
Run the code above in your browser using DataLab