powered by
EM0(num, y, A, mu0, Sigma0, Phi, cQ, cR, max.iter = 50, tol = 0.01)
t(cQ)%*%(cQ)
t(cR)%*%(cR)