# HG changeset patch
# User guerler
# Date 1397843948 14400
# Node ID 86068f6de925a6b83030c1e4a5aef5e213df64ee
# Parent  656efffe650e2ce803c150272206233ac1591b75
Uploaded

diff -r 656efffe650e -r 86068f6de925 histogram.r
--- a/histogram.r	Fri Apr 18 13:50:05 2014 -0400
+++ b/histogram.r	Fri Apr 18 13:59:08 2014 -0400
@@ -30,7 +30,9 @@
     # check if single bin is enough
     if (min_value == max_value) {
         l <- append(l, max_value)
-        l <- append(l, 1.0)
+        for (key in seq(m)) {
+            l <- append(l, 1.0)
+        }
         return (l)
     }