diff histogram.r @ 6:6a11aeb8bd39 draft

Uploaded
author guerler
date Thu, 17 Apr 2014 13:22:34 -0400
parents cbdd329ab623
children 2e2d92b2ae38
line wrap: on
line diff
--- a/histogram.r	Thu Apr 17 12:45:29 2014 -0400
+++ b/histogram.r	Thu Apr 17 13:22:34 2014 -0400
@@ -26,7 +26,7 @@
     # make sure length is fine
     n <- max(sapply(l, length))
     ll <- lapply(l, function(X) {
-        c(as.character(X), rep('undefined', times = n - length(X)))
+        c(as.character(X), rep('2147483647', times = n - length(X)))
     })
     l <- do.call(cbind, ll)