recodes a treedata object based on amalgamated characters

recode_td(td, traits, states, depstates = numeric(0))