comparison histogram.r @ 6:6a11aeb8bd39 draft

Uploaded
author guerler
date Thu, 17 Apr 2014 13:22:34 -0400
parents cbdd329ab623
children 2e2d92b2ae38
comparison
equal deleted inserted replaced
5:cbdd329ab623 6:6a11aeb8bd39
24 } 24 }
25 25
26 # make sure length is fine 26 # make sure length is fine
27 n <- max(sapply(l, length)) 27 n <- max(sapply(l, length))
28 ll <- lapply(l, function(X) { 28 ll <- lapply(l, function(X) {
29 c(as.character(X), rep('undefined', times = n - length(X))) 29 c(as.character(X), rep('2147483647', times = n - length(X)))
30 }) 30 })
31 l <- do.call(cbind, ll) 31 l <- do.call(cbind, ll)
32 32
33 # return 33 # return
34 return (l) 34 return (l)