Index: /reasoner/measures/script.r
===================================================================
--- /reasoner/measures/script.r	(revision 243)
+++ /reasoner/measures/script.r	(revision 244)
@@ -103,5 +103,5 @@
 #read all data for an experiment run.
 # folder the folder to read from
-# number of repetitions, 1 -> read files directly in fulder, >1 read files from sub-folders named 1...n
+# number of repetitions, 1 -> read files directly in folder, >1 read files from sub-folders named 1...n
 #  default -> global fullRepetitions
 #obtains the data, applies the (aggregated) statistics, returns one full table over all experiments
@@ -160,8 +160,10 @@
 }
 
+# composes a diagram title from a type (name) and an indicator (name)
 my.composeDiagramTitle = function(type, indicator) {
   return (paste(type, " (", indicator, ")", sep=""))
 }
 
+# composes a diagram file name from a directory, a name and an indicator (name)
 my.composeFileName = function(dir, name, indicator) {
   name <- paste(name, "_", indicator, ".pdf", sep="")
@@ -169,5 +171,7 @@
 }
 
-my.createDiagrams = function(data, indicator) {
+# creates the diagrams for a data set to be written into dir using the given indicator (name)
+my.createDiagrams = function(data, dir, indicator) {
+  print(paste(" reasoning time diagram", indicator))
   gg <- my.createErrorBarDiagram(
     data, 
@@ -177,7 +181,8 @@
     diagramTitle=my.composeDiagramTitle("Reasoning Time", indicator))
   ggsave(
-    filename=my.composeFileName("reasoningTime", indicator), 
+    filename=my.composeFileName(dir, "reasoningTime", indicator), 
     plot=gg)
   
+  print(paste(" translation time diagram", indicator))
   gg <- my.createErrorBarDiagram(
     data, 
@@ -187,7 +192,8 @@
     diagramTitle=my.composeDiagramTitle("Translation Time", indicator))
   ggsave(
-    filename=my.composeFileName("translationTime", indicator), 
+    filename=my.composeFileName(dir, "translationTime", indicator), 
     plot=gg)
 
+  print(paste(" evaluation time diagram", indicator))
   gg <- my.createErrorBarDiagram(
     data, 
@@ -197,5 +203,5 @@
     diagramTitle=my.composeDiagramTitle("Evaluation Time", indicator))
   ggsave(
-    filename=my.composeFileName("evaluationTime", indicator), 
+    filename=my.composeFileName(dir, "evaluationTime", indicator), 
     plot=gg)
 }
@@ -206,7 +212,7 @@
     print(paste("processing folder ", d))
     data <- my.readData(d, 1)
-    my.createDiagrams(data, 1)
+    my.createDiagrams(data, d, 1)
     data <- my.readData(d)
-    my.createDiagrams(data, "all")
+    my.createDiagrams(data, d, "all")
   }
 }