m <- mpt(mptspec("SR2"), c(243, 64, 58, 55)) # from Riefer et al. (2002)
logLik(m)
deviance(m)
AIC(m)
AIC(m, k = log(sum(m$y))) # BIC w/total number of data points
BIC(m) # BIC using nobs()
nobs(m) # number of non-redundant response categories
Run the code above in your browser using DataLab