Merge pull request #42 from schuettl/patch-1

Tiny fixes in Vignette code
USCbiostats · Oct 25, 2023 · df891c4 · df891c4
2 parents 503b810 + a548353
commit df891c4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/vignettes/getting-started.Rmd b/vignettes/getting-started.Rmd
@@ -48,11 +48,11 @@ cl <- makeSlurmCluster(100)
 
 # Computing the mean of a 100 random uniforms within each worker
 # for this we can use any of the function available in the parallel package.
-ans <- parSapply(1:200, function(x) mean(runif(100)))
+ans <- parSapply(cl, 1:200, function(x) mean(runif(100)))
 
 # We simply call stopCluster as we would do with any other cluster
 # object
-stopCluster(ans)
+stopCluster(cl)
 ```
 
 ## Job arrays using the *apply family