# NOT RUN {
# draw a sample for 1000 units, 10 response variable and 2 covariates
n=1000
TT = 5
k=2
nc = 2 #number of covariates
r = 10 #number of response variables
mb = 2 #maximum number of response categories
fort=TRUE
Psi = matrix(c(0.9,0.1,0.1,0.9),mb,k)
Psi = array(Psi,c(mb,k,r))
Ga = matrix(c(-log(0.9/0.1),0.5,1),(nc+1)*(k-1),k)
Be = array(c(0,0.5,1),(nc+1)*(k-1))
#Simulate covariates
X1 = matrix(0,n,nc)
for(j in 1:nc) X1[,j]=rnorm(n)
X2 = array(0,c(n,TT-1,nc))
for (t in 1:(TT-1)) for(j in 1:nc){
if(t==1){
X2[,t,j] = 0.5*X1[,j]+rnorm(n)
}else{
X2[,t,j] = 0.5*X2[,t-1,j]+rnorm(n)
}
}
out = draw_lm_cov_latent(X1,X2,Psi=Psi,Be=Be,Ga=Ga,fort=fort)
# }
Run the code above in your browser using DataLab