mkml {Kmisc}R Documentation

~~function to do ... ~~

Description

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

Usage

mkml(obj, rowname = c(rep(NA, length(obj)), list()), colname = c(rep(NA, length(obj)), list()), title = c(rep(NA, length(obj)), list()), obs = c(rep(NA, length(obj)), list()))

Arguments

obj ~~Describe obj here~~
rowname ~~Describe rowname here~~
colname ~~Describe colname here~~
title ~~Describe title here~~
obs ~~Describe obs 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, rowname=c(rep(NA, length(obj)), list()), colname=c(rep(NA, length(obj)), list()), title=c(rep(NA, length(obj)), list()), obs=c(rep(NA, length(obj)), list())) {
  if (!is.list(obj))
    stop("obj deve ser uma lista!")
  ddls <- sapply(obj, dim)
  rmax <- max(ddls[1,])
  cmax <- max(ddls[2,])
  res <- mkm(obj[[1]], numcol=cmax, rowname=rowname[[1]], colname=colname[[1]], title=title[[1]], obs=obs[[1]])
  if (length(obj)>1) 
    for (i in 2:length(obj))
      res <- rbind(res, matrix("", 1, 1+cmax), mkm(obj[[i]], numcol=cmax, rowname=rowname[[i]], colname=colname[[i]], title=title[[i]], obs=obs[[i]]))
  return(res)
  }

[Package Kmisc version 1.0 Index]