DeGrYr_tree rewritten using dplyr - prototype