MixedClass
objects with Metropolis-Hastings
samplers and averaging over the draws. Returns a list of the estimated effects.randef(x, ndraws = 1000, thin = 10, return.draws = FALSE)
mixedmirt
function#make an arbitrary groups
covdat <- data.frame(group = rep(paste0('group', 1:49), each=nrow(Science)/49))
#partial credit model
mod <- mixedmirt(Science, covdat, model=1, random = ~ 1|group)
summary(mod)
effects <- randef(mod, ndraws = 2000, thin = 20)
head(effects$Theta)
head(effects$group)
Run the code above in your browser using DataLab