[Adephylo-commits] r125 - pkg/R

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

Author: jombart
Date: 2009-11-05 11:59:43 +0100 (Thu, 05 Nov 2009)
New Revision: 125

Modified:
   pkg/R/table.phylo4d.R
Log:
removed calls to tip.data


Modified: pkg/R/table.phylo4d.R
===================================================================
--- pkg/R/table.phylo4d.R	2009-11-05 10:50:58 UTC (rev 124)
+++ pkg/R/table.phylo4d.R	2009-11-05 10:59:43 UTC (rev 125)
@@ -2,10 +2,10 @@
 ## table.phylo4d
 #############
 table.phylo4d <- function(x, treetype=c("phylogram","cladogram"), symbol=c("circles", "squares"),
-                      repVar=1:ncol(x at tip.data), center=TRUE, scale=TRUE, legend=TRUE, grid=TRUE, box=TRUE,
+                      repVar=1:ncol(tdata(x, type="tip")), center=TRUE, scale=TRUE, legend=TRUE, grid=TRUE, box=TRUE,
                       show.tip.label=TRUE, show.node.label=TRUE, show.var.label=TRUE,
                       ratio.tree=1/3, font=3,
-                      tip.label=x at tip.label, var.label=colnames(x at tip.data),
+                      tip.label=x at tip.label, var.label=colnames(tdata(x,type="tip")),
                       cex.symbol=1, cex.label=1, cex.legend=1, coord.legend=NULL, ...)
 {