# NOT RUN {
# }
# NOT RUN {
# Example based on self-rated health status (SRHS) data
# load SRHS data
data(data_SRHS_long)
dataSRHS = data_SRHS_long
head(dataSRHS)
res = long2matrices(dataSRHS$id,X=cbind(dataSRHS$gender-1,
dataSRHS$race==2|dataSRHS$race==3,dataSRHS$education==4,
dataSRHS$education==5,dataSRHS$age-50,(dataSRHS$age-50)^2/100),
Y=dataSRHS$srhs)
X =res$XX
S = 5-res$YY
# *** fit stationary LM model
res0 = vector("list",10); tol = 10^-6;
for(k in 1:10){
res0[[k]] = est_lm_cov_manifest(S,X,k,1,mod="LM",tol)
save.image("example_SRHS.RData")
}
# *** fit the mixture latent auto-regressive model
tol = 0.005
res = vector("list",4)
k=1
q = 51
res[[k]]=est_lm_cov_manifest(S,X,k,q,mod="FM",tol,output=TRUE)
for(k in 2:4) res[[k]]=est_lm_cov_manifest(S,X,k,q=61,mod="FM",tol,output=TRUE)
# }
Run the code above in your browser using DataLab