R/utils.R

In lbraglia/lbdiag: Diagnostic Accuracy Miscellaneous Utilities

## funzione che riconduce una variabile binaria (logical o factor a 2
## livelli ad un factor a 2 livelli e si lamenta bloccando tutto se
## l'input non e' di questo tipo
binary_preproc <- function(x, varname){
    if (!((is.factor(x) && nlevels(x) == 2L) || is.logical(x))){
        msg <- sprintf("%s must be a logical or a factor with 2 levels",
                       varname)
        stop(msg)
    }
    if (is.logical(x)) factor(x, levels = c(FALSE, TRUE)) else x
}