added rOpenTree.R