Below are some codes for your reference. Thank you!
> bk15_model_spec
[1] "MQ12B03 =1-GPCM, MQ12B05C =1-GPCM, MQ12D07B =1-GPCM MQ12B01 =1-2PL, MQ12B02 =1-2PL, MQ12B04A =1-2PL, MQ12B04B =1-2PL, MQ12B04C =1-2PL, MQ12B05A =1-2PL, MQ12B05B =1-2PL, MQ12R01 =1-2PL, MQ12R02A =1-2PL, MQ12R02B =1-2PL, MQ12R02C =1-2PL, MQ12D01 =1-2PL, MQ12D02A =1-2PL, MQ12D02B =1-2PL, MQ12D03 =1-2PL, MQ12D04 =1-2PL, MQ12D05 =1-2PL, MQ12D06A =1-2PL, MQ12D06B =1-2PL, MQ12D07A =1-2PL, MQ12D08A =1-2PL, MQ12D08B =1-2PL"
> bk15_data[, c(bk15_graded_items, bk15_binary_items)]
MQ12B03 MQ12B05C MQ12D07B MQ12B01 MQ12B02 MQ12B04A MQ12B04B MQ12B04C MQ12B05A MQ12B05B MQ12R01 MQ12R02A MQ12R02B MQ12R02C MQ12D01
1 NA 0 1 1 0 0 1 0 1 1 1 1 1 1 0
2 2 1 0 1 0 0 1 1 1 1 0 1 1 1 1
3 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0
4 2 0 0 1 0 0 0 0 1 1 0 0 0 0 0
5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7 NA 0 0 0 0 0 0 0 0 0 0 0 0 0 0
8 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
9 2 0 1 1 1 1 1 1 1 1 1 1 1 1 1
10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
11 0 0 0 1 0 0 1 0 1 1 0 0 0 0 0
12 NA 0 2 1 0 0 1 1 0 1 1 1 1 0 1
13 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
14 NA 0 0 0 0 0 0 1 0 0 0 0 0 0 0
15 2 0 0 1 0 0 1 1 0 1 0 1 1 0 1
16 2 0 2 1 1 1 1 1 1 1 1 1 0 1 1
17 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0
18 NA 0 0 0 1 1 0 0 1 1 1 0 0 0 0
19 NA 0 0 0 0 0 0 0 0 0 0 0 0 0 0
20 2 0 0 1 0 0 1 0 0 1 0 0 0 0 1
21 NA 0 2 1 1 0 0 1 1 1 1 0 0 0 0
22 0 0 0 1 0 0 0 0 1 1 0 1 0 0 1
23 2 0 0 1 0 1 1 1 1 1 1 1 1 1 1
24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
25 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
26 0 0 0 1 0 0 0 1 0 0 0 1 1 0 0
27 2 1 2 1 0 1 1 1 1 1 1 1 1 1 1
28 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
29 2 1 0 1 1 0 1 1 1 1 0 0 0 0 1
30 0 0 0 1 0 1 1 0 1 1 0 0 0 0 0
31 NA 0 0 0 1 0 1 0 0 1 0 0 0 0 0
32 2 0 0 1 1 0 1 1 0 1 0 0 0 0 1
33 2 0 2 1 1 1 1 1 0 0 1 1 1 1 1
34 NA 0 1 0 0 0 0 0 1 1 0 0 0 0 0
35 NA 0 0 0 0 0 0 0 1 0 0 0 0 0 0
36 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
37 2 0 0 1 1 1 1 1 1 1 1 1 1 0 1
38 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
39 NA 0 0 1 0 1 0 1 1 1 1 1 1 1 1
40 0 0 0 0 0 1 0 1 1 1 1 0 0 0 1