R/utility.R

alength <- function(x){
    if (is.list(x)) {
        min(sapply(x, length))
    }
    else {
        length(x)
    }
}
Non-Contradiction/autodiffr documentation built on May 10, 2019, 8:04 a.m.