# NOT RUN {
# Toy example
raw <- open.animals[c(1:10),-c(1:3)]
# Clean and prepocess data
clean <- textcleaner(raw, partBY = "row", dictionary = "animals")
# Converge "golden retriever" into response of "lab"
rmat <- converge(clean$binary,"lab","golden retriever")
# "lab" remains will "golden retriever" responses are merged into
# "lab" and "golden retriever" is removed
# }
Run the code above in your browser using DataLab