前面已经介绍了partial credit model（PCM），今天就进行实战。
我们看如下代码：
> library(eRm)
> data(pcmdat2)
> res.pcm <- PCM(pcmdat2)
> plotPImap(res.pcm, sorted = TRUE)
> pres.pcm <- person.parameter(res.pcm)
> itemfit(pres.pcm)

> coef(res.pcm,parm='eta')

上述运用软件为R软件，使用eRm的包，数据为eRm包中的既有的数据。大家在实际应用时，可以替换成自己的数据进行分析。
至于具体的R格式的代码和txt格式代码在下面zip包中。