comparison histogram.r @ 11:61a1d67f70d4 draft

Uploaded
author guerler
date Fri, 18 Apr 2014 15:11:06 -0400
parents 86068f6de925
children 9479e62342fa
comparison
equal deleted inserted replaced
10:86068f6de925 11:61a1d67f70d4
1 # utilities 1 # utilities
2 roundUp <- function(x) 10^ceiling(log10(x)) 2 roundUp <- function(x) 10 * ceiling(x/10)
3 roundDown <- function(x) 10^floor(log10(x)) 3 roundDown <- function(x) 10 * floor(x/10)
4 4
5 # wrapper 5 # wrapper
6 wrapper <- function(table, columns, options) { 6 wrapper <- function(table, columns, options) {
7 7
8 # initialize output list 8 # initialize output list