powered by
bitcsi(m, ordinal, csi)
probcub00
probcubp0
probcub0q
data(univer) m<-7 ordinal<-univer[,8] csi<-0.7 pr<-bitcsi(m,ordinal,csi)
Run the code above in your browser using DataLab