system.time(replicate(1000000, alphabet()))
start <- Sys.time() results <- unlist(lapply(1:1000000,alphabet)) end <- Sys.time() end - start
start <- Sys.time() results <- unlist(mclapply(1:1000000,alphabet,mc.cores = 4)) end <- Sys.time() end - start
library(parallel) detectCores()
no_cores <- detectCores() - 1
start <- Sys.time() parLapply(cl, 1:1000000, alphabet) end <- Sys.time() end-start stopCluster(cl)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.