   (* (count (:samplesizes opts))
      (:repetitions opts)))
 
+(def index-access-identifier "Alias")
 (def relation-accesses (atom []))
 
 ;; Not the best solution, but the easiest in this case
 (defn- save-if-relation-access [o]
-  (if (and (map? o) (contains? o "Relation Name"))
+  (if (and (map? o) (contains? o index-access-identifier))
     (swap! relation-accesses conj o))
   o)
 

    diff))

(defn analyze-plans-for-all-queries [all-plans]
  (map analyze-plans-for-query all-plans))

(defn- save-parse-result [file-name parse-result]
  (let [file-path (str parse-results-dir file-name)]

(defn- group-by-relation [accesses]
  (apply merge-with concat
         (map
           (fn [l] (group-by #(get % index-access-identifier) l))
           accesses)))

(defn- diff-relation-access [access-by-relation]
