 (fact float-bytes => 4)
 
 (fact
-  "Check average of vector.
-   Casting as float to generalize for another vector as necessary. Otherwise average will return fractions."
+  "Check average of vector. Casting as float to generalize for another
+  vector as necessary. Otherwise average will return fractions."
   (float (average [1 2 3.])) => 2.0)
 
 (fact

  (weighted-mean 8 3 1 1) => 6.25
  (weighted-mean 8 0 1 1) => 1.0

  "Negative weights aren't acceptable."
  (weighted-mean 8 -1 1 1) => (throws IllegalArgumentException)

  "Values and weights must come in pairs."
  (weighted-mean 8 1 1) => (throws AssertionError))

(fact "trim-seq tests."

 2 [1 2 3] [2 4 6]
 1.5 [1 2 3] [1.5 3.0 4.5])

(fact "Check windowed-map"
  (windowed-map average 2 [1 2 50]) => [3/2 26])
