data(relgoods)
m<-10
ordinal<-na.omit(relgoods[,37])
simul<-cubforsim(m,ordinal,maxiter=500,toler=1e-6)
simul$estimates # Estimated parameters vector (pai,csi)
###############
data(univer)
m<-7
ordinal<-univer[,12]
simul<-cubforsim(m,ordinal)
param<-simul$estimates # Estimated parameters vector (pai,csi)
###############
m<-9; n<-500
pai<-0.7
csi<-0.4
ordinal<-simcub(n,m,pai,csi)
simul<-cubforsim(m,ordinal)
param<-simul$estimates
maxlik<-simul$loglik
niter<-simul$niter
varmat<-simul$varmat
Run the code above in your browser using DataLab