(ns code.privacy.morph_v2
  (:use (code.utils utils preprocess))
  (:use (code.pls cliff ncliff))
  (:use (code.privacy morph_v1))
  (:use (incanter core stats)))

(defn morph2 [n data sav r prototype-fn distance-fn deci-n]
" Here data is first cliffed then morphed.
  Example:
  (morph2 10 (pre-data ant13) [10 20] [0.1501 0.3501] ncliff numeric 0.1)
"   
  (let [cliff-data (prototype-fn n data sav deci-n r) 
        morph-data (morph1 n cliff-data sav r prototype-fn 9 distance-fn)]
    morph-data))

(defn morph10 [n data sav r prototype-fn _ distance-fn]
  (morph2 n data sav r prototype-fn distance-fn 0.1))

(defn morph20 [n data sav r prototype-fn _ distance-fn]
  (morph2 n data sav r prototype-fn distance-fn 0.2))

(defn morph40 [n data sav r prototype-fn _ distance-fn]
  (morph2 n data sav r prototype-fn distance-fn 0.4))