if (FALSE) {
##### Rasch Model #####
dat <- eRm::raschdat3
x1 <- c(rep(0,250), rep(1,250))
x2 <- runif(500,min = 0, max = 1)
X <- cbind(x1,x2)
res <- mix_mod(data = dat, Xcov = X)
# $CML_estimates
# 1 2 3 4 5 6
# base 0 -0.596 -1.152 -1.804 -1.846 -2.353
# 1 0 -0.380 -0.403 0.072 -0.121 -0.452
# 2 0 0.814 0.780 0.612 -0.277 0.069
#
# $SE
# 1 2 3 4 5 6
# base NA 0.356 0.347 0.349 0.353 0.369
# 1 NA 0.314 0.303 0.301 0.307 0.320
# 2 NA 0.564 0.545 0.541 0.548 0.572
#
# $Z_statistics
# 1 2 3 4 5 6
# base NA -1.675 -3.320 -5.175 -5.223 -6.377
# 1 NA -1.210 -1.330 0.240 -0.396 -1.413
# 2 NA 1.443 1.431 1.132 -0.505 0.121
#
# $pvalue
# 1 2 3 4 5 6
# base NA 0.094 0.001 0.000 0.000 0.000
# 1 NA 0.226 0.183 0.810 0.692 0.158
# 2 NA 0.149 0.153 0.258 0.613 0.904
#
# $loglik
# [1] -993.8575
#
# $tests
# stat df pvalue
# W 14.339 10 0.158
# LR 14.462 10 0.153
# RS 14.507 10 0.151
# GR 14.499 10 0.151
#
# $information_criteria
# AIC BIC
# [1,] 2007.715 2049.432
#
# $call
# mix_mod(data = dat, Xcov = X)
#
# attr(,"class")
# [1] "tcl"
}
Run the code above in your browser using DataLab