R/stdev.R

In mobilizingcs/MobilizePrime: Simple functions for Mobilize

stdev <- function(...) {
    if (any(is.na(mosaic::sd(...)))) {
        missing <- favstats(...)$missing
        warning(paste("The data contains", missing, "missing values\n"))
        output <- mosaic::sd(..., na.rm = TRUE)
    } else {
        output <- mosaic::sd(...)
    }
    return(output)
}