diff histogram.r @ 11:61a1d67f70d4 draft

Uploaded
author guerler
date Fri, 18 Apr 2014 15:11:06 -0400
parents 86068f6de925
children 9479e62342fa
line wrap: on
line diff
--- 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) {