(ns code.data.standard_data
  (:use (code.data data))
  (:use (incanter core datasets stats io)))

;(def incanter-home (System/getProperty "incanter.home")) 
(def vote (read-dataset 
                 (str incanter-home "data/vote.dat") 
                 :delim \space
                 :header true))
(def vote (to-matrix vote))

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

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

;1
(def heart (read-dataset 
                 (str incanter-home "data/heart.dat") 
                 :delim \space
                 :header false))
(def heart (to-matrix heart))

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

;2
(def bc (read-dataset 
                 (str incanter-home "data/breast-cancer.dat") 
                 :delim \space
                 :header false))
(def bc (to-matrix bc))

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

;3
(def tumor (read-dataset 
                 (str incanter-home "data/primary-tumor.dat") 
                 :delim \space
                 :header false))
(def tumor (to-matrix tumor))


;4
(def bs (read-dataset 
                 (str incanter-home "data/balance-scale.csv") 
                 :delim \,
                 :header true))
(def bs (to-matrix bs))

;5
(def lym-fss (read-dataset 
                 (str incanter-home "data/lym-fss.dat") 
                 :delim \,
                 :header false))
(def lym-fss (to-matrix lym-fss))

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

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

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

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

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

;6
;(def iris (to-matrix (get-dataset :iris)))

;7
(def glass (read-dataset 
                 (str incanter-home "data/glass.csv") 
                 :delim \,
                 :header true))
(def glass (to-matrix glass))

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

;9
(def pima (read-dataset 
                 (str incanter-home "data/pima_diabetes.dat") 
                 :delim \space
                 :header false))
(def pima (to-matrix pima))

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

;10
(def ttt (read-dataset 
                 (str incanter-home "data/tic-tac-toe.dat") 
                 :delim \,
                 :header true))
(def ttt (to-matrix ttt))

;10
(def sonar (read-dataset 
                 (str incanter-home "data/sonar.dat") 
                 :delim \space
                 :header true))
(def sonar (to-matrix sonar))

(def splice (read-dataset 
                 (str incanter-home "data/splice.dat") 
                 :delim \space
                 :header false))
(def splice (to-matrix splice))

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