R/total_perc_missing.R

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

total_perc_missing <- function(dtf) {
    ## First remove sex column:
    dtf <- dtf[, -1, drop = FALSE]
    ## Then compute % of missing values:
    perc <- 100 * sum(is.na(dtf)) / (nrow(dtf) * ncol(dtf))
    ## And return a rounded value:
    return(round(perc, 1))
}