# 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"
#de-string
convmat <- destr(stringed, 1, ".")
# }
Run the code above in your browser using DataLab