elvajear 发表于 2019-6-11 15:35 
pattern可能是正则表达式,把整段代码贴出来看看吧
您好,谢谢您的热心帮助。我现在对于这一段代码已经理解了。不过有出现了另一个问题。在出来的数据图中,第一个图中的图例遮挡了其中的数据,所以我想将图例进行修改,但是没有成功,所以想向您寻求一下帮助,怎样修改图例,让得出的图更加的美观。谢谢您的帮助!以下是我的代码:
- # load package
- library(CDM)
- # estimate DINA model
- ecpe <- din(data.ecpe$data[,-1], data.ecpe$q.matrix)
- # parameters and standard errors of DINA model
- param <- IRT.se(ecpe, extended=TRUE)
- p <- split(param, param$partype)
- # items characteristics (cf. Table 6)
- pvalues <- colMeans(data.ecpe$data[,-1], na.rm=TRUE) # item p-values
- p$guess # guessing parameters
- p$slip # slipping parameters
- omega1 <- 1 - p$guess$est - p$slip$est # item discrimination
- omega2 <- (p$guess$est + (1 - p$slip$est))/2 # item easiness
- # skill characteristics (cf. Table 7 and 8)
- p$margprobs # skill distribution Q1
- p$probs # skill class distribution Q2
- IRT.factor.scores(ecpe, type="MLE")[1:5,] # individual skill profile Q3
- # plot model parameters
- par(mfrow=c(2,2))
- plot(ecpe, pattern=data.ecpe$data[1,-1])
复制代码