new dist.topo (to be finished) and modified multi2di

[ape.git] / R / read.tree.R

diff --git a/R/read.tree.R b/R/read.tree.R
index aa0b0294e0b695f82d58ab677d3732cd175b0756..d19acaef73edfa15054bb30a1158d647eaa5b06f 100644 (file)
--- a/R/read.tree.R
+++ b/R/read.tree.R
@@ -1,4 +1,4 @@
-## read.tree.R (2009-03-29)
+## read.tree.R (2009-04-27)
 
 ##   Read Tree Files in Parenthetic Format
 
@@ -133,7 +133,7 @@ read.tree <- function(file = "", text = NULL, tree.names = NULL, skip = 0,
 
     tmp <- unlist(lapply(STRING, unname))
     tmpnames <- tmp[c(TRUE, FALSE)]
-    tree <- tmp[c(FALSE, TRUE)]
+    STRING <- tmp[c(FALSE, TRUE)]
     if (is.null(tree.names) && any(nzchar(tmpnames)))
         tree.names <- tmpnames