Add seed to run-method.R

code/run-method.R

@@ -7,6 +7,8 @@ suppressMessages({
   library(sessioninfo)
 })
 
+set.seed(20220503)
+
 # Get the passed arguments from the command line via Snakemake.
 args <- commandArgs(trailingOnly = TRUE, asValues = TRUE)