                  {:field_id 3 :row 1 :gene "BLAH"}]))
       (let [[probe1 probe2]
             (vec (map #(into [] %) (map ((first data) :data) ["probe1" "probe2"])))]
-        (ct/is (nearly-equal 0.0001 probe1 [1.2 1.1]))
-        (ct/is (nearly-equal 0.0001 probe2 [2.2 2.1])))
+        (ct/is (nearly-equal probe1 [1.2 1.1]))
+        (ct/is (nearly-equal probe2 [2.2 2.1])))
       (let [[probe1 probe2]
             (vec (map #(into [] %) (map ((first data2) :data) ["probe1" "probe2"])))]
-        (ct/is (nearly-equal 0.0001 probe1 [1.1 Double/NaN]))
-        (ct/is (nearly-equal 0.0001 probe2 [2.1 Double/NaN]))))))
+        (ct/is (nearly-equal probe1 [1.1 Double/NaN]))
+        (ct/is (nearly-equal probe2 [2.1 Double/NaN]))))))
 
 (def docroot "test/cavm/test_inputs")
 

                 {:name "probe5" :id 6 :dataset_id 1} ]))
      (let [[probe1 probe2]
            (vec (map #(into [] %) (map ((first data) :data) ["probe1" "probe2"])))]
        (ct/is (nearly-equal 0.0001 probe1 [2.1 1.1]))
        (ct/is (nearly-equal 0.0001 probe2 [2.2 1.2]))))))

(defn matrix2-reload [db]
  (ct/testing "reload tsv matrix from file"

          size
          (+ s (* (- size s) slope)))))))

(defn gen-distinct-names
  "Generate a list of names which are non-empty after trimming, and
  are distinct after trimming."
  [n]
  (gen/such-that
    #(= (count %) (count (set (map s/trim %))))
    (gen-vector-of-size
      (gen/such-that #(not-empty (s/trim %)) gen/string-ascii)
      n)))

(defn scale-gen
