Create DataPresent.r and TreeLevelSummary.r and produce total tree diameter mass figure