# NOT RUN {
# Example of drug consumption data
# load data
data(data_drug)
data_drug = as.matrix(data_drug)
S = data_drug[,1:5]-1
yv = data_drug[,6]
# fit of the Basic LM model
k = 3
out = est_lm_basic(S,yv,k,mod=1)
summary(out)
# }
# NOT RUN {
# Example based on criminal data
# load criminal data
data(data_criminal_sim)
out = long2wide(data_criminal_sim,"id","time","sex",
c("y1","y2","y3","y4","y5","y6","y7","y8","y9","y10"),aggr=T,full=999)
XX = out$XX
YY = out$YY
freq = out$freq
# fit basic LM model with increasing number of states to select the most suitable
Res0 = vector("list",7)
for(k in 1:7){
Res0[[k]] = est_lm_basic(YY,freq,k,mod=1,tol=10^-4)
save(list = ls(),file="example_criminal_temp.RData")
}
out1 = Res0[[6]]
# }
Run the code above in your browser using DataLab