# NOT RUN {
# estimate a probit model using example data
library(UPG)
data(lfp)
y = lfp[,1]
X = lfp[,-1]
results.probit = UPG(y = y, X = X, type = "probit", verbose=TRUE)
# extract log-likelihood
ll.probit = logLik(results.probit)
# compute BIC
BIC(ll.probit)
# }
Run the code above in your browser using DataLab