Extract log posterior for each individual
Extract individual log posterior.
indlogPost(object, ...)
object |
GDINA object |
... |
additional arguments |
## Not run: dat <- sim10GDINA$simdat Q <- sim10GDINA$simQ fit <- GDINA(dat = dat, Q = Q, model = "GDINA") iP <- indlogPost(fit) iP[1:6,] ## End(Not run)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.