precomputeData <- function(mc) {
list(
object = mc,
transitionMatrix = mc@transitionMatrix,
states = mc@states,
byrow = mc@byrow,
irreducible = is.irreducible(mc),
regular = is.regular(mc),
canonicForm = canonicForm(mc),
recurrentClasses = recurrentClasses(mc),
transientClasses = transientClasses(mc),
recurrentStates = recurrentStates(mc),
transientStates = transientStates(mc),
absorbingStates = absorbingStates(mc),
hittingProbabilities = hittingProbabilities(mc),
meanNumVisits = meanNumVisits(mc),
meanRecurrenceTime = meanRecurrenceTime(mc),
communicatingClasses = communicatingClasses(mc),
steadyStates = steadyStates(mc),
reachabilityMatrix = is.accessible(mc)
)
}
precomputeSteadyStates <- function(mc) {
list(
object = mc,
expected = steadyStates(mc)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.