transreas | R Documentation |
Data came from 12 dichtomous items administered to 425 children in grades 2 through 6 (Verweij, Sijtsma, & Koops, 1996). Each item is a transitive reasoning task.
data(transreas)
A 425 by 13 (grade and scores on 12 items) matrix containing integers.
attributes(transreas)
gives details on the items
Items have two ordered answer categories, incorrect (score 0), correct (1). (for detailed information, see Sijtsma & Molenaar, 2002, p. 33).
Item | Task | Property | Format | Objects | Measures |
T09L | 9 | length | YA = YB < YC = YD | sticks | 12.5, 12.5, 13, 13 (cm) |
T12P | 12 | pseudo | |||
T10W | 10 | weight | YA = YB < YC = YD | balls | 60, 60, 100, 100 (g) |
T11P | 11 | pseudo | |||
T04W | 4 | weight | YA = YB = YC = YD | cubes | 65 (g) |
T05W | 5 | weight | YA < YB < YC | balls | 40, 50, 70 (cm) |
T02L | 2 | length | YA = YB = YC = YD | tubes | 12 (cm) |
T07L | 7 | length | YA > YB = YC | sticks | 28.5, 27.5, 27.5 (cm) |
T03W | 3 | weight | YA > YB > YC | tubes | 45, 25, 18 (g) |
T01L | 1 | length | YA > YB > YC | sticks | 12, 11.5, 11 (cm) |
T08W | 8 | weight | YA > YB = YC | balls | 65, 40, 40 (g) |
T06A | 6 | area | YA > YB > YC | discs | 7.5, 7, 6.5 (diameter; cm) |
Verweij, A. C., Sijtsma, K., & Koops, W. (1996). A Mokken scale for transitive reasoning suited for longitudinal research. International Journal of Behavioral Development, 23, 241-264. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1177/016502549601900115")}
Sijtsma, K., & Molenaar, I. W. (2002) Introduction to nonparametric item response theory. Sage.
# Construction of Table 3.1 in Sijtsma and Molenaar (2002, p. 33)
data(transreas)
grades <- transreas[,1]
item.scores <- transreas[,-1]
Total.group <- round(apply(item.scores,2,mean),2)
for (i in 2:6) assign(paste("Grade.",i,sep=""),
round(apply(item.scores[grades==i,],2,mean),2))
Task <- c(9,12,10,11,4,5,2,7,3,1,8,6)
Property <- attributes(transreas)$property
Format <- attributes(transreas)$format
Objects <- attributes(transreas)$objects
Measures <- attributes(transreas)$measures
Table.3.1 <- data.frame(Task,Property,Format,Objects,Measures,
Total.group,Grade.2,Grade.3,Grade.4,Grade.5,Grade.6)
Table.3.1
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.