Update discriminants--trees.R