slight changes to the phylogeny.R file, to delete unused objects