library(parallel)
detectCores()  # nodos lógicos

# código a ejecutar en paralelo
fun <- function(x) {
  return (x^2)
}
cl <- makeCluster(4) # crea un cluster de n = 4 nodos

clusterApply(cl, 1:10, fun)
stopCluster(cl) # finalizado el proceso paramos el cluster