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)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.