(ns code.data.data
  (:use (incanter core datasets stats io)))
  
(def incanter-home (System/getProperty "incanter.home")) 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Paint with 4 features
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(def paint3 (read-dataset 
                 (str incanter-home "data/paint3.csv") 
                 :delim \,
                 :header false))
(def paint3 (to-matrix paint3))       

(def paint5 (read-dataset 
                 (str incanter-home "data/paint5.csv") 
                 :delim \,
                 :header false))
(def paint5 (to-matrix paint5))   

(def paint10 (read-dataset 
                 (str incanter-home "data/paint10.csv") 
                 :delim \,
                 :header false))
(def paint10 (to-matrix paint10)) 

(def paint20 (read-dataset 
                 (str incanter-home "data/paint20.csv") 
                 :delim \,
                 :header false))
(def paint20 (to-matrix paint20)) 

(def paint37 (read-dataset 
                 (str incanter-home "data/paint37.csv") 
                 :delim \,
                 :header false))
(def paint37 (to-matrix paint37)) 

(def wind34 (read-dataset 
                 (str incanter-home "data/wind34.csv") 
                 :delim \,
                 :header false))
(def wind34 (to-matrix wind34))

(def wind204 (read-dataset 
                 (str incanter-home "data/wind204.csv") 
                 :delim \,
                 :header false))
(def wind204 (to-matrix wind204))

(def spectra (read-dataset 
                 (str incanter-home "data/spectra.dat") 
                 :delim \,
                 :header true))
(def spectra (to-matrix spectra))

(def spectra1 (read-dataset 
                 (str incanter-home "data/raw-spectra20.csv") 
                 :delim \,
                 :header true))
(def spectra1 (to-matrix spectra1))