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