Extract individual log-likelihood.

indlogLik(object, ...)

Arguments

object

GDINA object

...

additional arguments

Examples

if (FALSE) {
dat <- sim10GDINA$simdat
Q <- sim10GDINA$simQ

fit <- GDINA(dat = dat, Q = Q, model = "GDINA")
iL <- indlogLik(fit)
iL[1:6,]
}