# Loading a hidden Markov model of the biofam data (hmm object)
data("hmm_biofam")
# Convert the multichannel model to a single-channel model
sc <- mc_to_sc(hmm_biofam)
# Likelihoods of the single-channel and the multichannel model are the same
# (Might not be true if there are missing observations)
logLik(sc)
logLik(hmm_biofam)
Run the code above in your browser using DataLab