Minor updated to heat-map example in doc-string.

okcwest · Mar 9, 2010 · 37381f2 · 37381f2
1 parent 61975ad
commit 37381f2
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/modules/incanter-charts/src/main/clojure/incanter/charts.clj b/modules/incanter-charts/src/main/clojure/incanter/charts.clj
@@ -1705,16 +1705,16 @@
 
 
     (use '(incanter core stats charts))
-    (let [points [[0 5] 
-  	          [0 10] 
-	          [15 0] 
-	          [18 10]] 
+    (let [data [[0 5 1 2] 
+  	          [0 10 1.9 1] 
+	          [15 0 0.5 1.5] 
+	          [18 10 4.5 2.1]] 
           diffusion (fn [x y] 
-	  	      (sum (map #(pdf-normal (euclidean-distance [x y] %) :sd 2) 
-			        points)))]
+	  	      (sum (map #(pdf-normal (euclidean-distance [x y] (take 2 %)) 
+                                             :mean (nth % 2) :sd (last %)) 
+			        data)))]
       (view (heat-map diffusion -5 20 -5 20)))
 
-
 "
   ([function x-min x-max y-min y-max & options]
     `(let [opts# ~(when options (apply assoc {} options))