powered by
Extract individual log posterior.
indlogPost(object, ...)
GDINA object
additional arguments
if (FALSE) { dat <- sim10GDINA$simdat Q <- sim10GDINA$simQ fit <- GDINA(dat = dat, Q = Q, model = "GDINA") iP <- indlogPost(fit) iP[1:6,] }
Run the code above in your browser using DataLab