gistfile1.clj

;; incanter
(use '(incanter core stats charts))

;; require clj-time to use f/parse
(alembic.still/distill '[clj-time])
(require '[clj-time.format :as f])

;; read dataset x.csv
(def r (read-dataset "x.csv" :header true))

;; timestamp to long
(def rr (with-data r (conj-cols $data ($map (fn [ts] (let [dt (f/parse ts)] (if dt (.getMillis dt) nil))) :lasttimestamp))))

;; view and save scatter-plot
(view (scatter-plot :col-0 :_c1 :data rr))
(save (scatter-plot :col-0 :_c1 :data rr) "x.png")