R/patternToString.R

########################################################################
# find pattern names for 0-1-2 matrix as X.discret
##########
patternToString <- function(X.discret)
{
 library(xtable)

    W <- ncol(X.discret)
#    words <- apply(X.discret,2,prettyNum)
    words <- apply(X.discret,2,as.character)
    l <- apply(words,1,paste,collapse="")
    names(l) <- rownames(X.discret)
    return(l)
   }

Try the MAMA package in your browser

Any scripts or data that you put into this service are public.

MAMA documentation built on Jan. 15, 2017, 3:05 p.m.