examples/examples.R


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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)
}