Nothing
#'@keywords internal
trmatplot.hmm <- function(d, seed = NULL,
rowconstraint = TRUE, morder = 1,
cspal = NULL, cpal = NULL, main = NULL,
xlab = NULL, ylab = NULL, ylim = NULL,
xtlab = NULL, ytlab = NULL,
pfilter = NULL,
shade.col = "grey80",
num = NULL,
hide.col = NULL,
lorder = NULL,
plot = TRUE,
verbose = FALSE, ...) {
## ----------------------PREPARE
d <- d$transition_probs
trmatplot.default(d = d, seed = seed,
rowconstraint = rowconstraint, morder = morder,
cspal = cspal, cpal = cpal, main = main,
xlab = xlab, ylab = ylab, ylim = ylim,
xtlab = xtlab, ytlab = ytlab,
pfilter = pfilter,
shade.col = shade.col,
num = num,
hide.col = hide.col,
lorder = lorder,
plot = plot,
verbose = verbose, ...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.