#### Log-likelihood of an IHG model with no covariate
m<-10; theta<-0.14; n<-300
ordinal<-simihg(n,m,theta)
loglik<-loglikIHG(ordinal,m,param=theta)
##################################
#### Log-likelihood of a IHG model with covariate
data(relgoods)
m<-10
ordinal<-relgoods[,41]
gender<-relgoods[,9]
nona<-na.omit(cbind(ordinal,gender))
ordinal<-nona[,1]
gender<-nona[,2]
nu<-c(-1.55,-0.11) # first entry: intercept term
loglik<-loglikIHG(ordinal, m, param=nu, U=gender)
Run the code above in your browser using DataLab