# NOT RUN {
# Suppressed on CRAN checks as this is time-consuming
fun <- function(x) mean(rnorm(1e7))
pbapply::pbsapply(1:20, fun)
par_sapply(1:20, fun)
#sapply(1:20, fun)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab