data(admit)
summary(admit)
## ordered probit model
op1 <- MASS::polr(score ~ gre.quant + gre.verbal + ap + pt + female,
Hess=TRUE,
data=admit,
method="probit")
summary(op1)
hitmiss(op1)
logLik(op1)
pR2(op1)
Run the code above in your browser using DataLab