data(relgoods)
m<-10
gender<-relgoods[,2]
smoking<-relgoods[,12]
ordinal<-relgoods[,40]
nona<-na.omit(cbind(ordinal,gender,smoking))
ordinal<-nona[,1]
gender<-nona[,2]
smoking<-nona[,3]
bet<-c(-0.45,-0.48)
gama<-c(-0.55,-0.43)
logscore(m, ordinal, Y=smoking, W=gender, bet, gama)
Run the code above in your browser using DataLab