# NOT RUN {
data(multivtoydataset)
x <- multivtoydataset$x
y <- multivtoydataset[, c("y1", "y2", "y3")]
selectedmhmmr <- selectMHMMR(X = x, Y = y, Kmin = 2, Kmax = 6,
pmin = 0, pmax = 2)
selectedmhmmr$summary()
# }
Run the code above in your browser using DataLab