# NOT RUN {
# }
# NOT RUN {
# normal density example
den <- function(obj, Theta) dnorm(Theta, obj@par[1], obj@par[2])
par <- c(mu = 0, sigma = 1)
est <- c(FALSE, TRUE)
lbound <- c(-Inf, 0)
grp <- createGroup(par, est, den, nfact = 1, lbound=lbound)
mod <- mirt(Science, 1, 'Rasch')
modcustom <- mirt(Science, 1, 'Rasch', customGroup=grp)
coef(mod)
coef(modcustom)
# }
Run the code above in your browser using DataLab