# NOT RUN {
#create example stringed responses
stringed <- cbind(rowSums(cbind(rmat[,c(1,2)])),convmat)
#change name to stringed name
colnames(stringed)[1] <- "alligator.ant"
# }
# NOT RUN {
#text cleaned
clean <- textcleaner(rmat)
#automated de-string
convmat <- autoDestr(clean, 10)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab