R/Summaryvariable0.R

In RcmdrPlugin.pointG: Graphical POINT of view for questionnaire data Rcmdr Plug-In

Summaryvariable0<-
function (x, maxsum = 7, digits = max(3, getOption("digits") - 
    3),pourcent=1) 
{
    if (is.numeric(x)) {
        ttt <- Summarynumeric0(x, digits = digits)
    }
    else {
        if (is.ordered(x)) {
            ttt <- Summaryordered0(x, maxsum = maxsum,pourcent=pourcent)
        }
        else {
            if (is.factor(x)) {
                ttt <- Summaryfactor0(x, maxsum = maxsum,pourcent=pourcent)
            }
            else {
                ttt <- NA
            }
        }
    }
    nnaa <- round(sum(is.na(x)))
    names(nnaa) <- "? (n)"
    c(ttt, nnaa)
}