# Compute starting values for item parameter estimates
starting_values_dichotomous
# Perform EM iterations for computing item parameter estimates.
# Maximum of 50 EM iterations.
EM_steps -max_iter 2000
print -latent_dist_moments
# Print item parameter estimates
write_item_param CC_100.par
# end of run
release_items_dist
----------------------------------------------------------------------
Number of items: 60
Number of latent variable points: 40
Number of examinee groups: 2
Default prior for a-parameters:
lognormal Mean: 0.000 s.d. 0.500
Default prior for b-parameters:
normal Mean: 0.000 s.d. 2.000
Default prior for c-parameters:
beta a: 6.000 b: 16.000 lower limit: 0.000 upper limit: 1.000
data <- data[(length(data)-1):(length(data))]
data <- gsub("[[:space:]]+", " ", data)
data <- paste(data, collapse="\n")
data <- read.table(textConnection(data), header=F)
data[, -1]