# NOT RUN {
# Toy example
raw <- open.animals[c(1:10),-c(1:3)]
# Clean and prepocess data
clean <- textcleaner(raw, partBY = "row", dictionary = "animals")
# Obtain binary data
bin <- clean$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