mkml {Kmisc} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
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()))
obj |
~~Describe obj here~~ |
rowname |
~~Describe rowname here~~ |
colname |
~~Describe colname here~~ |
title |
~~Describe title here~~ |
obs |
~~Describe obs here~~ |
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~Make other sections like Warning with section{Warning }{....} ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help
, ~~~
##---- 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) }