15.5 Transition Networks

Here’s the transition network for the phases.

TM1 <- rn_transition(phaseOut$phase_name)

You can also pass a nominal series directly.

# This will output the transition matrix, a plot of the matrix and a transition network plot.
y <- c("Happy", "Happy", "Sad", "Neutral", "Neutral", "Angry", "Sad", "Sad", "Neutral")

TM2 <- rn_transition(y)