From c79fde06f0a9de875a62d76e5d6419f39bacd3be Mon Sep 17 00:00:00 2001 From: JHendy Date: Tue, 3 May 2016 22:08:05 -0400 Subject: [PATCH] Uploading a file that I did awhile ago. --- R/exercise.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/exercise.R b/R/exercise.R index 2912149..3b75a2f 100755 --- a/R/exercise.R +++ b/R/exercise.R @@ -13,14 +13,14 @@ GetTreeFromOpenTree_exercise <- function() { # Replace the "__________" with appropriate arguments - anolis.id <- tnrs_match_names("__________")$ott_id + anolis.id <- tnrs_match_names("Anolis")$ott_id # Now get Open Tree's current best estimate of the phylogeny for the group # They call this the tree of life; we can get the subtree for just this group. anolis.tree <- tol_subtree(ott_id=anolis.id) # Let's plot the tree: - plot.phylo("__________", type="fan", cex=0.2) + plot.phylo("anolis.tree", type="fan", cex=0.2) # It has a lot of polytomies, representing uncertainty. A maximally resolved # tree (if rooted) will have one fewer internal nodes than terminal nodes: @@ -49,7 +49,7 @@ GetTreeFromOpenTree_exercise <- function() { # And let's get the tree from this study # Look in rotl documentation for the right function # Hint: get_study_trees() is close, but you don't know the tree.id - anolis.study1.tree1 <- get_______FUNCTION_FROM_rotl____(anolis.studies.ids) + anolis.study1.tree1 <- get_study(anolis.studies.ids) # And plot it plot.phylo(anolis.study1.tree1, type="fan", cex=0.2) @@ -61,7 +61,7 @@ GetTreeFromOpenTree_exercise <- function() { } - +U1<-GetTreeFromOpenTree_exercise