From a548353e81ba77707f06ad4d3c1936a2ba261d33 Mon Sep 17 00:00:00 2001
From: schuettl <127317606+schuettl@users.noreply.github.com>
Date: Wed, 25 Oct 2023 09:28:25 +0200
Subject: [PATCH] Tiny fixes in Vignette code

---
 vignettes/getting-started.Rmd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/vignettes/getting-started.Rmd b/vignettes/getting-started.Rmd
index 3f68cd3..5dcb3e8 100644
--- 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