item_idx <-
c( 29, 33, 26, 36, 34,
295, 289, 296, 291, 126,
133, 124, 134, 129, 38,
47, 39, 41, 46, 45,
167, 166, 170, 168, 113,
116, 119, 117, 118, 114)
item_resp <-
c( 1, 0, 1, 1, 0,
0, 1, 1, 0, 0,
1, 0, 1, 0, 1,
1, 1, 1, 0, 1,
0, 1, 1, 1, 1,
1, 0, 1, 0, 1)
item_ncat <-
c( 2, 2, 2, 2, 2,
2, 2, 2, 2, 2,
2, 2, 2, 2, 2,
2, 2, 2, 2, 2,
2, 2, 2, 2, 2,
2, 2, 2, 2, 2)
getScoreAttributes(constraints_reading, item_idx, item_resp, item_ncat)
Run the code above in your browser using DataLab