楼主: shiluoye
1772 5

[问答] R语言程序询问 [推广有奖]

  • 1关注
  • 2粉丝

已卖:60份资源

高中生

72%

还不是VIP/贵宾

-

威望
0
论坛币
552 个
通用积分
3.5149
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
1180 点
帖子
18
精华
0
在线时间
32 小时
注册时间
2018-11-13
最后登录
2020-5-10

楼主
shiluoye 发表于 2019-5-20 11:13:35 |AI写论文
5论坛币
想请各位帮忙分析一下R程序中这一句:plot(ecpe, pattern=data.ecpe$data[1,-1])  个人不是很懂。谢谢大家了,希望解答时能够 讲的详细些!

关键词:R语言 Pattern 请各位帮忙 Data 希望解答

沙发
elvajear 学生认证  发表于 2019-6-11 15:35:58
pattern可能是正则表达式,把整段代码贴出来看看吧

藤椅
shiluoye 发表于 2019-6-18 09:28:33
elvajear 发表于 2019-6-11 15:35
pattern可能是正则表达式,把整段代码贴出来看看吧
您好,谢谢您的热心帮助。我现在对于这一段代码已经理解了。不过有出现了另一个问题。在出来的数据图中,第一个图中的图例遮挡了其中的数据,所以我想将图例进行修改,但是没有成功,所以想向您寻求一下帮助,怎样修改图例,让得出的图更加的美观。谢谢您的帮助!以下是我的代码:
  1. # load package
  2. library(CDM)

  3. # estimate DINA model
  4. ecpe <- din(data.ecpe$data[,-1], data.ecpe$q.matrix)

  5. # parameters and standard errors of DINA model
  6. param <- IRT.se(ecpe, extended=TRUE)
  7. p <- split(param, param$partype)

  8. # items characteristics (cf. Table 6)
  9. pvalues <- colMeans(data.ecpe$data[,-1], na.rm=TRUE) # item p-values
  10. p$guess # guessing parameters
  11. p$slip # slipping parameters
  12. omega1 <- 1 - p$guess$est - p$slip$est # item discrimination
  13. omega2 <- (p$guess$est + (1 - p$slip$est))/2 # item easiness

  14. # skill characteristics (cf. Table 7 and 8)
  15. p$margprobs # skill distribution Q1
  16. p$probs # skill class distribution Q2
  17. IRT.factor.scores(ecpe, type="MLE")[1:5,] # individual skill profile Q3

  18. # plot model parameters
  19. par(mfrow=c(2,2))
  20. plot(ecpe, pattern=data.ecpe$data[1,-1])
复制代码

板凳
刘彦楼 发表于 2019-6-27 17:32:59
plot中的ecpe是使用din函数估计出来的结果,data.ecpe$data[1,-1]是出去第一列后的第一行

报纸
刘彦楼 发表于 2019-6-27 17:34:13
如果我没记错的话,IRT.se中计算出来的标准误是错的。建议使用我开发的包估计标准误,https://cran.r-project.org/web/packages/dcminfo/index.html

地板
刘彦楼 发表于 2019-6-27 17:35:53
想要自己定义图的话,建议你了解一下tiff,pdf这个两个函数

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注jltj
拉您入交流群
GMT+8, 2025-12-22 08:22