Mercurial > repos > guerler > charts
comparison histogram.r @ 10:86068f6de925 draft
Uploaded
author | guerler |
---|---|
date | Fri, 18 Apr 2014 13:59:08 -0400 |
parents | 656efffe650e |
children | 61a1d67f70d4 |
comparison
equal
deleted
inserted
replaced
9:656efffe650e | 10:86068f6de925 |
---|---|
28 max_value <- roundUp(max_value) | 28 max_value <- roundUp(max_value) |
29 | 29 |
30 # check if single bin is enough | 30 # check if single bin is enough |
31 if (min_value == max_value) { | 31 if (min_value == max_value) { |
32 l <- append(l, max_value) | 32 l <- append(l, max_value) |
33 l <- append(l, 1.0) | 33 for (key in seq(m)) { |
34 l <- append(l, 1.0) | |
35 } | |
34 return (l) | 36 return (l) |
35 } | 37 } |
36 | 38 |
37 # identify increment | 39 # identify increment |
38 increment <- roundUp((max_value - min_value) / 10) | 40 increment <- roundUp((max_value - min_value) / 10) |