tab.mult {Kmisc}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

tab.mult(obj, x = NULL, ...)

Arguments

obj ~~Describe obj here~~
x ~~Describe x here~~
... ~~Describe ... here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(obj, x=NULL, ...) {
  if (is.null(x)) {
    Freq=colSums(obj, ...)
    Freq=c(Freq, Total=sum(Freq))
    return(data.frame(Freq, FreqPerc=Freq/nrow(obj)))
  }
  else {
    res <- table(ifelse(obj[,1], "Sim", "Não"), x)[1,]
    for (i in 2:ncol(obj))
      res <- rbind(res, table(ifelse(obj[,i], "Sim", "Não"), x)[1,])
    rownames(res) <- names(obj)
  return(res)
  }
  }

[Package Kmisc version 1.0 Index]