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]
gama<-c(-0.6, -0.3)
csivett<-logis(lage,gama)
alpha<-c(-2.3,0.92)
phivett<-1/(-1+1/(logis(lage,alpha)))
pr<-betabinomial(m, ordinal, csivett, phivett)
Run the code above in your browser using DataLab