搜索
人大经济论坛 附件下载

附件下载

所在主题:
文件名:  工作簿1.xlsx
资料下载链接地址: https://bbs.pinggu.org/a-3503132.html
附件大小:
请求大佬帮忙看下程序哪里出错了,小白一个论文急需啊啊啊:谢谢谢谢!!
不知道哪里错了,项目区分度难度都不应该是这么大的数字埃数据的EXCEL放在附件了,是一组25X18个项目的数据谢谢各位大佬!!!

install.packages("ltm")
library(ltm)
setwd("c:/mystudy/RIRT")
ddd<-read.fwf("data1.csv", widths=c(1,rep(1,18)))
dim(ddd)
ddd <- ddd[,-1]
names(ddd) <- paste("It",1:18, sep="")
mod.2pl <- ltm(ddd~z1, IRT.param=T)
mod.2pl$conv
summary(mod.2pl)
coef(mod.2pl)
factor.scores(mod.2pl, method="EAP")


结果:
> setwd("c:/mystudy/RIRT")
> ddd<-read.fwf("data1.csv", widths=c(1,rep(1,18)))
> dim(ddd)
[1] 26 19
> ddd <- ddd[,-1]
> names(ddd) <- paste("It",1:18, sep="")
> mod.2pl <- ltm(ddd~z1, IRT.param=T)
> mod.2pl$conv
[1] 0
> summary(mod.2pl)
Error in solve.default(object$hessian) :
Lapack例行程序dgesv: 系统正好是奇异的: U[3,3] = 0
> coef(mod.2pl)
Dffclt Dscrmn
It1-1.398595e+09 4.687995e-08
It2-2.797913e+00 1.694660e-01
It3-1.398595e+09 4.687995e-08
It4-5.958137e-01 5.651422e-01
It5-1.398595e+09 4.687995e-08
It6-2.154298e+00 1.450527e-01
It7-1.398595e+09 4.687995e-08
It8-2.313392e-01 3.893327e+00
It9-1.398595e+09 4.687995e-08
It10 -2.947178e+00 3.487284e-01
It11 -1.398595e+09 4.687995e-08
It12 -3.548480e-01 3.164737e+00
It13 -1.398595e+09 4.687995e-08
It14 -4.610567e-01 7.744310e-01
It15 -1.398595e+09 4.687995e-08
It16 -1.621804e+01 3.924119e-02
It17 -1.398595e+09 4.687995e-08
It18 -1.802842e+00 2.659201e-01







    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载,请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。
(如有侵权,欢迎举报)
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

GMT+8, 2026-1-8 02:47