X-Git-Url: https://projects.mako.cc/source/redirect-tools/blobdiff_plain/6afdb261da3e6b7fe8d122614f052644556a3095..94bd17bbb5059ab82da990a6488cbe6eb3d5c42d:/example/02-generate_spells_cluster.R

diff --git a/example/02-generate_spells_cluster.R b/example/02-generate_spells_cluster.R
new file mode 100644
index 0000000..753dd24
--- /dev/null
+++ b/example/02-generate_spells_cluster.R
@@ -0,0 +1,10 @@
+# save the run number
+run <- as.numeric(commandArgs(TRUE)) + 1
+run.string <- sprintf("%03d", run)
+
+setwd(redirect.dat.dir)
+redirect.spells <- filename.to.spells(list.files()[run])
+
+setwd(spells.data.dir)
+save(redirect.spells, file=paste("redirect_spells-", run.string, ".RData", sep=""))
+