data(relgoods)
m<-10
ordinal<-na.omit(relgoods[,37])
starting<-rep(0.1,3)
simul<-cubeforsim(m,ordinal,starting)
param<-simul$estimates # Estimated parameters vector (pai,csi,phi)
####################
data(univer)
m<-7
ordinal<-univer[,11]
starting<-rep(0.1,3)
simul<-cubeforsim(m,ordinal,starting)
param<-simul$estimates # Estimated parameters vector (pai,csi,phi)
Run the code above in your browser using DataLab