 (defmethod cmn/get-comparison-files :tnseq
   [_ & args]
   (apply get-comparison-files- args))
-
-
-(defn get-aggregate-files
-  ([eid]
-   (get-aggregate-files eid "AggregateSheet.csv"))
-  ([eid aggr-filename]
-   (let [aggr-file (->> aggr-filename
-                        (fs/join (pams/get-params :nextseq-base) eid))]
-     (if (not (fs/exists? aggr-file))
-       (get-comparison-files- eid true)
-       (let [aggr (cmn/get-exp-info eid :rep :aggrs)
-             compvec (->> aggr-filename
-                          (fs/join (pams/get-params :nextseq-base) eid)
-                          slurp csv/read-csv rest)]
-         compvec
-         )))))
 
 
 (defn get-phase-2-dirs [eid]

  (run-fitness-aggregate
   eid recipient "ComparisonSheet.csv" get-toolinfo template))


(defn feature-map [gtf & {:keys [ftype] :or {ftype :any}}]
  (letio [lines (io/read-lines gtf)]

                       compvec)]
     (if aggr?
       (mapv (fn[grp]
               (when (seq grp)
                 (let [l (->> grp last first fs/basename (str/split #"-")
                              last (str/split #"\.") first)
                       g (mapv (fn[[_ _ csv _]]
                                 [(fs/join aggr csv) (fs/join fit csv)])
                               grp)
                       allcsv (->> g first first
                                   (#(fs/replace-type % (str "-" l ".csv"))))]
                   (conj g allcsv))))
             cmpgrps)
       ;; else fitness groups
       (mapcat (fn[grp]
