data(relgoods)
m<-10
ordinal<-relgoods[,37]
age<-2014-relgoods[,4]
lage<-log(age)-mean(log(age))
nona<-na.omit(cbind(ordinal,lage))
ordinal<-nona[,1]
W<-nona[,2]
gama<-c(-0.61,-0.31)
phi<-0.16
csivett<-logis(W,gama)
pr<-betabinomialcsi(m,ordinal,csivett,phi)
Run the code above in your browser using DataLab