a b c d
0000 0 0 0 0
0110 0 1 1 0
0101 0 1 0 1
1110 1 1 1 0
1101 1 1 0 1
1011 1 0 1 1
1111 1 1 1 1
endm$K2 # misspecified knowledge structure a b c d
0000 0 0 0 0
0110 0 1 1 0
1110 1 1 1 0
1101 1 1 0 1
1011 1 0 1 1
1111 1 1 1 1
endm$N.R # response patterns0000 1000 0100 0010 0001 1100 1010 1001 0110 0101 0011 1110 1101 1011 0111 1111
15 4 6 4 5 2 3 4 18 22 2 39 37 12 7 20
0000 0001 0010 0011 0100 0101 0110 0111 1000 1001 1010 1011 1100 1101 1110 1111
16 7 6 2 9 20 22 8 4 3 5 12 9 36 29 12
## Fit BLIM based on K2
blim1 <- blim(endm$K2, endm$N.R, "MD")