[Adephylo-commits] r43 - in pkg: . R

[noreply at r-forge.r-project.org]

Author: jombart
Date: 2008-11-27 12:03:20 +0100 (Thu, 27 Nov 2008)
New Revision: 43

Modified:
   pkg/DESCRIPTION
   pkg/R/distances.R
Log:
Fixed the Size attribute in distTips.


Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2008-11-26 19:18:24 UTC (rev 42)
+++ pkg/DESCRIPTION	2008-11-27 11:03:20 UTC (rev 43)
@@ -9,4 +9,4 @@
 Description: Multivariate tools to analyze comparative data, i.e. a phylogeny and some traits measured for each taxa.
 License: GPL (>=2)
 LazyLoad: yes
-Collate: utils.R partition.R s.phylo4d.R distances.R
\ No newline at end of file
+Collate: utils.R partition.R s.phylo4d.R distances.R proximities.R
\ No newline at end of file

Modified: pkg/R/distances.R
===================================================================
--- pkg/R/distances.R	2008-11-26 19:18:24 UTC (rev 42)
+++ pkg/R/distances.R	2008-11-27 11:03:20 UTC (rev 43)
@@ -82,7 +82,7 @@
     ## convert res to a dist object
     res <- unlist(res)
     class(res) <- "dist"
-    attr(res, "Size") <- length(res)
+    attr(res, "Size") <- length(tips)
     attr(res, "Diag") <- FALSE
     attr(res, "Upper") <- FALSE
     attr(res, "method") <- paste("Phylogenetic: ",method,sep="")