(ns code.eg.demos 
  (:use (code.utils utils))
  (:use (code.experiments knn prep)) 
  (:use (code.utils.pruners sbbr1))
  (:use (incanter core)))

(let [x 0 k 1 n 4]

;;;;; Fast demos ;;;;;;;;;;
(defn demo-1 []
"Display datasets in matrix form
 x can be 0, 1, 2 or 3, where 0 is
 dataset with 3 clusters, 1 (5 clusters)
 2 (10 clusters) and 3 (20 clusters)"
  
  (second (numeric-datasets x)))
  
(defn demo-2 []
"Transpose datasets in matrix form"
  
  (trans (second (numeric-datasets x))))  
  
(defn demo-3 []
"Outputs 5 randomized versions of an
 original dataset for 5x5 cross-validation
 experiments" 
 
  (nth ndatasets x))
  

;;;;; Slow demos ;;;;;;;;;;
(defn demo-4 []
"Brittleness level and Quartile pd and pf values before 
 applying CLIFF selector"
  
  (c-knn-b4 5 (nth ndatasets 0) numeric 4 k n))    
  
(defn demo-5 []
"Brittleness level and Quartile pd and pf values after 
 applying CLIFF selector"
  
  (c-knn-after 5 (nth ndatasets 0) numeric 4 k n))
  
(defn demo-6 []
"Reducing a dataset with CLIFF selector"
  (let [data (second (numeric-datasets x))
        ndata (run-csl data k n)] ;applying selector
  (print 'before {:no-of-instances (nrow data)
                  :instances data}
         'after  {:no-of-instances (nrow ndata)
                  :instances ndata})))
)