# NOT RUN {
# Toy example
raw <- open.animals[c(1:10),-c(1,2)]
# Clean and prepocess data
clean <- textcleaner(raw, partBY = "row", dictionary = "animals")
# Obtain binary data
bin <- clean$binary
# Change column name as an example
colnames(bin)[1] <- "alpaca.ant.antelope"
# Automated de-string
if(interactive())
{convmat <- autoDestr(bin, 10)}
# }
Run the code above in your browser using DataLab