if (FALSE) {
data(ustweet)
## A ridiculously short run to pass CRAN
## For a real test, set maxit to a more reasonable number to reach convergence
lout <- networkIRT(.y = ustweet$data,
.starts = ustweet$starts,
.priors = ustweet$priors,
.control = {list(verbose = TRUE,
maxit = 3,
convtype = 2,
thresh = 1e-6,
threads = 1
)
},
.anchor_item = 43
)
}
Run the code above in your browser using DataLab