(defn knn-new-b4 [n D distance kn k1 n1]
  (loop [i 0 d (second D) results (transient [])]
    (if (empty? d)
      (let [ans (persistent! results)
            ans1 (apply bind-rows 
                   (map matrix (org-data (apply vector (apply concat (map second ans))))))
            sig! (overall ans1)
            ans2 (overall ans1)
            ans3 (apply concat (map first ans))
            ans4 (apply concat (map #(nth % 2) ans))]    
 
 (vector sig! (second (first (filter #(= kn (first %)) treatments1))) 
        (first D) (first ans2) (second ans2) (quantile ans4) ans3))      
      (recur (inc i)
             (rest d)
             (conj! results 
      (let [trainer (fn [data]     
                     data)
            tester (fn [one model] 
                 (vector (last one) 
                     (knn-classifier
                      (butlast one) 
                      kn
                      model
                      distance)))                       
            klasses (fn []
                  (map #(last (first %)) (group-by (first d) (- (ncol (first d)) 1))))]
        (let [answer (nway-new n (first d) trainer tester distance)
              brt (apply concat (map last answer))
              pdpf (map #(abcd-stats 
                  (first %) 
                  (second %)
                  (klasses)) 
                   answer)
               red (map #(nth % 2) answer)]
          [brt pdpf red])))))))