CDM (version 8.2-6)

data.pisa00R: PISA 2000 Reading Study (Chen & de la Torre, 2014)

Description

This is a sub-dataset of the PISA 2000 of German students including 26 items of the reading test. The 26 items was analyzed in Chen and de la Torre (2014) and a subset of 20 items was analyzed in Chen and Chen (2016).

Usage

data(data.pisa00R.ct)
data(data.pisa00R.cc)

Format

• The format of the dataset data.pisa00R.ct (Chen & de la Torre, 2014) is:

  List of 3
$ data :'data.frame': 1095 obs. of 111 variables:
.. [list output truncated]
$ q.matrix: num [1:26, 1:8] 0 1 0 0 0 1 0 0 0 1 ...
..- attr(*, "dimnames")=List of 2
$ skills : chr [1:8] "Locating information" ...
  

• The format of the dataset data.pisa00R.cc (Q-matrix in Chen and Chen, 2016)

  List of 2
$ q.matrix:'data.frame': 20 obs. of 5 variables:
..$ A1: num [1:20] 1 1 0 0 1 1 1 0 0 0 ...
..$ A2: num [1:20] 0 0 0 1 0 1 1 1 1 1 ...
..$ A3: num [1:20] 1 1 0 1 1 0 1 0 1 0 ...
..$ A4: num [1:20] 0 1 1 1 0 0 0 0 0 0 ...
..$ A5: num [1:20] 0 0 1 0 0 0 0 1 0 1 ...
$ skills : Named chr [1:5] "Identifying Explicit Information" ...
..- attr(*, "names")=chr [1:5] "A1" "A2" "A3" "A4" ...
  

References

Chen, H., & Chen, J. (2016). Exploring reading comprehension skill relationships through the G-DINA model. Educational Psychology, 36(6), 1049-1064.

Chen, J., & de la Torre, J. (2014). A procedure for diagnostically modeling extant large-scale assessment data: the case of the programme for international student assessment in reading. Psychology, 5(18), 1967-1978.

Examples

#############################################################################
# EXAMPLE 1: PISA items from Chen and de la Torre (2014)
#            dichotomize item responses
#############################################################################

data(data.pisa00R.ct, package="CDM")
dat <- data.pisa00R.ct$data
Q <- data.pisa00R.ct$q.matrix
resp <- dat[, rownames(Q)]

#** extract item-wise maximum
maxK <- apply( resp, 2, max, na.rm=TRUE )
#** dichotomize response data
resp1 <- resp
for (ii in seq(1,ncol(resp)) ){
    resp1[,ii] <- 1 * ( resp[,ii]==maxK[ii] )
}