makes representation of NaNs (no values) symmetric with creation- nil
This commit is contained in:
parent
a83e21d72b
commit
7357a720e9
2 changed files with 11 additions and 8 deletions
|
@ -313,10 +313,13 @@ If the class is nominal then the string value (not keyword) is returned."
|
||||||
"Returns the value of an instance attribute. A string, not a keyword is returned."
|
"Returns the value of an instance attribute. A string, not a keyword is returned."
|
||||||
[^Instance instance pos]
|
[^Instance instance pos]
|
||||||
(let [pos (int pos)
|
(let [pos (int pos)
|
||||||
attr (.attribute instance pos)]
|
attr (.attribute instance pos)
|
||||||
(if (.isNominal attr) ; This ignores the fact that weka can have date and other attribute types...
|
val (.value instance pos)]
|
||||||
(.stringValue instance pos)
|
(if (Double/isNaN val)
|
||||||
(.value instance pos))))
|
nil
|
||||||
|
(if (.isNominal attr) ; This ignores the fact that weka can have date and other attribute types...
|
||||||
|
(.stringValue instance pos)
|
||||||
|
val))))
|
||||||
|
|
||||||
(defn instance-to-list
|
(defn instance-to-list
|
||||||
"Builds a list with the values of the instance"
|
"Builds a list with the values of the instance"
|
||||||
|
|
|
@ -127,11 +127,11 @@
|
||||||
|
|
||||||
|
|
||||||
(deftest working-sequences-and-helpers
|
(deftest working-sequences-and-helpers
|
||||||
(let [ds (make-dataset "test" [:a :b {:c [:d :e]}] [{:a 1 :b 2 :c :d} [4 5 :e]])]
|
(let [ds (make-dataset "test" [:a :b {:c [:d :e]}] [{:a 1 :b 2 :c nil} [4 nil :e]])]
|
||||||
(is (= 2 (dataset-count ds)))
|
(is (= 2 (dataset-count ds)))
|
||||||
(is (= [{:a 1 :b 2 :c "d"} {:a 4 :b 5 :c "e"}] (dataset-as-maps ds)))
|
(is (= [{:a 1 :b 2 :c nil} {:a 4 :b nil :c "e"}] (dataset-as-maps ds)))
|
||||||
(is (= [[1 2 "d"] [4 5 "e"]] (dataset-as-vecs ds)))
|
(is (= [[1 2 nil] [4 nil "e"]] (dataset-as-vecs ds)))
|
||||||
(is (= [{:a 1 :b 2 :c "d"} {:a 4 :b 5 :c "e"}] (map #(instance-to-map %1) (dataset-seq ds))))))
|
(is (= [{:a 1 :b 2 :c nil} {:a 4 :b nil :c "e"}] (map #(instance-to-map %1) (dataset-seq ds))))))
|
||||||
|
|
||||||
(deftest dataset-instance-predicates
|
(deftest dataset-instance-predicates
|
||||||
(let [ds (make-dataset "test" [:a :b {:c [:d :e]}] [{:a 1 :b 2 :c :d} [4 5 :e]])
|
(let [ds (make-dataset "test" [:a :b {:c [:d :e]}] [{:a 1 :b 2 :c :d} [4 5 :e]])
|
||||||
|
|
Loading…
Reference in a new issue