1 files changed, 16 insertions, 0 deletions
diff --git a/examples/examples.R b/examples/examples.R
new file mode 100644
index 0000000..7b905bf
--- /dev/null
+++ b/examples/examples.R
@@ -0,0 +1,16 @@
+directories = c("mamdani/", "mamdani/matlab/", "mamdani/octave/", "takagi-sugeno/", "takagi-sugeno/matlab/", "takagi-sugeno/octave/", "tsukamoto/", "hybrid")
+baseDirectory = getwd()
+
+for (directory in directories){
+  message("Processing directory: ", directory)
+  setwd(directory)
+  rScripts = list.files(".", pattern = ".R$")
+  for (i in seq(1, length(rScripts))){
+    rScript = rScripts[i]
+    message(sprintf("\tProcessing file %i/%i: %s", i, length(rScripts), rScript))
+    scriptEnvironment = new.env()
+    sys.source(rScript, scriptEnvironment)
+    rm(scriptEnvironment)
+  }
+  setwd(baseDirectory)
+}