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)