comparison histogram.r @ 6:6a11aeb8bd39 draft

Uploaded

5:cbdd329ab623

    }
    
    # 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)))
    })
    l <- do.call(cbind, ll)

    # return
    return (l)

6:6a11aeb8bd39

    }
    
    # make sure length is fine
    n <- max(sapply(l, length))
    ll <- lapply(l, function(X) {
        c(as.character(X), rep('2147483647', times = n - length(X)))
    })
    l <- do.call(cbind, ll)

    # return
    return (l)