tianlanse1987 发表于 2015-3-3 11:04 
坐等大侠回复呀,帮帮忙!
install.packages("irtoys")
library(irtoys)
bar <- read.csv("C:/Users/hhkj/Desktop/随机抽样.csv")
irtoys <-est(bar,model = "3PL",engine = "ltm")
irtoys
th.mie <- mlebme(resp = bar,ip=irtoys)
write.csv(th.mie,file = "能力参数.csv")