data("simData2")
Y <- simData2$Y
init <- Eigen.HMM_init(Y = Y, k = 2, density = "MVT", mod.row = "EEE", mod.col = "EE", nstartR = 1)
fit <- Eigen.HMM_fit(Y = Y, init.par = init, nThreads = 1)
atp <- atp.MVT(Y = Y, M = fit[["results"]][[1]][[1]][[1]][["M"]],
U = fit[["results"]][[1]][[1]][[1]][["U"]],
V = fit[["results"]][[1]][[1]][[1]][["V"]],
class = fit[["results"]][[1]][[1]][[1]][["class"]],
epsilon = 0.99)
which(atp==1)
which(simData2[["atp.tr"]]==1)
Run the code above in your browser using DataLab