R/dss_min_fm.R

In frederic-santos/rdss: An R-Shiny Application for a Semi-Automatized Approach of Sex Estimation in Biological Anthropology

dss_min_fm <-
function(dtf, female = "F", male = "M") {
    if (! is.null(dtf)) {
        nb_f <- sum(dtf[, 1] == female)
        nb_m <- sum(dtf[, 1] == male)
        return(min(c(nb_f, nb_m)))
    } else {
        return(NULL)
    }
}