X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fread.nexus.R;h=b8a17d8ee798ae16a9fca148f5353ed82c52ded6;hb=34f56710584c96664cbdcc2f9586af02b6e849bd;hp=01aec6495d560e7dc5ef15386f062941ad0e2af0;hpb=762d28a9a2b50774a29b3d58a1e84fde4b6f898f;p=ape.git

diff --git a/R/read.nexus.R b/R/read.nexus.R
index 01aec64..b8a17d8 100644
--- a/R/read.nexus.R
+++ b/R/read.nexus.R
@@ -1,8 +1,8 @@
-## read.nexus.R (2008-11-24)
+## read.nexus.R (2009-01-19)
 
 ##   Read Tree File in Nexus Format
 
-## Copyright 2003-2008 Emmanuel Paradis
+## Copyright 2003-2009 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -154,7 +154,7 @@ read.nexus <- function(file, tree.names = NULL)
     rm(X)
     tree <- gsub("^.*= *", "", tree)
     ## check whether there are empty lines from the above manips:
-    tree <- tree[tree == ""]
+    tree <- tree[tree != ""]
     semico <- grep(";", tree)
     Ntree <- length(semico)
     ## are some trees on several lines?