family = "gaussian"
Q = matrix(c(0.8, 0.3, 0.2, 0.7), 2, 2) ; theta = matrix(c(0, 1.7, 0, 1),2,2) ;
y = SimHMMGen(theta, size=0, Q, ZI=1, family, 100)$SimData
out=GofHMMGen(y,1,2,family,n_samples=10)
Run the code above in your browser using DataLab