-
- Zinit1 = array(0, dim=c(n,20))
- betaInit1 = array(0, dim=c(p,m,k,20))
- sigmaInit1 = array(0, dim = c(m,m,k,20))
- phiInit1 = array(0, dim = c(p,m,k,20))
- rhoInit1 = array(0, dim = c(m,m,k,20))
+ nIte = 20
+ Zinit1 = array(0, dim=c(n,nIte))
+ betaInit1 = array(0, dim=c(p,m,k,nIte))
+ sigmaInit1 = array(0, dim = c(m,m,k,nIte))
+ phiInit1 = array(0, dim = c(p,m,k,nIte))
+ rhoInit1 = array(0, dim = c(m,m,k,nIte))