# \donttest{
# estimate a binomial logit model using example data
library(UPG)
data(titanic)
y = titanic[,1]
Ni = titanic[,2]
X = titanic[,-c(1,2)]
results.binomial = UPG(y = y, X = X, Ni = Ni, model = "binomial")
# extract log-likelihood
ll.binomial = logLik(results.binomial)
# }
Run the code above in your browser using DataLab