# Obtain binary data
bin <- open.binary
# Finalize mat1
mat1 <- finalize(bin[c(1:5),])
# Finalize mat2
mat2 <- finalize(bin[c(6:10),])
# Equate mat1 and mat1
eq <- equate(mat1, mat2)
# Obtain respective equated response matrices
eq.mat1 <- eq$mat1 # list objects are named with the names
eq.mat2 <- eq$mat2 # they were entered with
Run the code above in your browser using DataLab