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