diff histogram.r @ 10:86068f6de925 draft

Uploaded
author guerler
date Fri, 18 Apr 2014 13:59:08 -0400
parents 656efffe650e
children 61a1d67f70d4
line wrap: on
line diff
--- 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)
     }