# NOT RUN {
data(toydataset)
Y <- t(toydataset[,2:ncol(toydataset)])
mixhmm <- emMixHMM(Y = Y, K = 3, R = 3, verbose = TRUE)
# mixhmm is a ModelMixHMM object. It contains some methods such as 'summary' and 'plot'
mixhmm$summary()
mixhmm$plot()
# mixhmm has also two fields, stat and param which are reference classes as well
# Log-likelihood:
mixhmm$stat$loglik
# Means
mixhmm$param$mu
# }
Run the code above in your browser using DataLab