# HG changeset patch
# User guerler
# Date 1397848266 14400
# Node ID 61a1d67f70d4687a6db0db3ae2d96c4325fc7f8c
# Parent  86068f6de925a6b83030c1e4a5aef5e213df64ee
Uploaded

diff -r 86068f6de925 -r 61a1d67f70d4 histogram.r
--- a/histogram.r	Fri Apr 18 13:59:08 2014 -0400
+++ b/histogram.r	Fri Apr 18 15:11:06 2014 -0400
@@ -1,6 +1,6 @@
 # utilities
-roundUp <- function(x) 10^ceiling(log10(x))
-roundDown <- function(x) 10^floor(log10(x))
+roundUp <- function(x) 10 * ceiling(x/10)
+roundDown <- function(x) 10 * floor(x/10)
 
 # wrapper
 wrapper <- function(table, columns, options) {