R script for tree scoring times.