| 所在主题: | |
| 文件名: 工作簿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、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。 (如有侵权,欢迎举报) |
|
京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问:王进律师
知识产权保护声明
免责及隐私声明