# NOT RUN {
# Toy example
raw <- open.animals[c(1:10),-c(1:3)]
if(interactive())
{
# Clean and prepocess data
clean <- textcleaner(open.animals[,-c(1:2)], partBY = "row", dictionary = "animals")
# Change response matrix to binary response matrix
binmat <- resp2bin(clean$responses$corrected)
}
# }
Run the code above in your browser using DataLab