Create tree.R