added findsourcetrees.R