#选择diffIRT包中的extraversion数据我们将其分成一个列表,这个列表含两个元素,都是143行,10列的矩阵
#首先加载diffIRT的包(若没安装,先安装)
library(statmod)
library(diffIRT)
dat<-data("extraversion")
#令前十列为一个列表R
R<-list(extraversion[,1:10])
#令11到20列为列表t
t<-list(extraversion[,11:20])
#然后合并列表R,t,这样就得到了一个包含两个元素R,t的列表datt
datt<-append(R,t)
#接下来,我们可以对列表里的元素进行改名
names(datt)<-c("R","T")
#引用列表中的元素(索引)
rt<-datt$T