R/ssplotM.R

In helske/seqHMM: Mixture Hidden Markov Models for Social Sequence Data and Other Multivariate, Multichannel Categorical Time Series

ssplotM <- function(x, hidden.paths,
                    plots, type, tlim,
                    sortv, sort.channel, dist.method,
                    with.missing, missing.color,
                    title, title.n, cex.title, title.pos,
                    with.legend, ncol.legend,
                    with.missing.legend,
                    legend.prop, cex.legend,
                    hidden.states.colors, hidden.states.labels,
                    xaxis, xlab, xtlab, xlab.pos,
                    yaxis, ylab, hidden.states.title,
                    ylab.pos,
                    cex.lab, cex.axis, ...) {
  # plot.new()
  grid.newpage()
  arguments <- as.list(match.call())[-1]
  if (length(arguments$x) == 1) {
    arguments$x <- arguments$x[[1]]
  }
  do.call(SSPlotter, args = do.call(ssp, args = arguments))
}