[Phylobase-commits] r391 - in pkg: R man

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

Author: bbolker
Date: 2008-12-22 03:35:00 +0100 (Mon, 22 Dec 2008)
New Revision: 391

Modified:
   pkg/R/methods-phylo4.R
   pkg/R/phylo4.R
   pkg/man/nNodes-methods.Rd
Log:
  added edgeOrder accessor for x at order



Modified: pkg/R/methods-phylo4.R
===================================================================
--- pkg/R/methods-phylo4.R	2008-12-22 02:30:59 UTC (rev 390)
+++ pkg/R/methods-phylo4.R	2008-12-22 02:35:00 UTC (rev 391)
@@ -40,6 +40,11 @@
     x at edge
 })
 
+setMethod("edgeOrder", "phylo4", function(x, ...) {
+    x at order
+})
+
+
 setMethod("isRooted","phylo4", function(x) {
     ## hack to avoid failure on an empty object
     if(nTips(x) == 0) return(FALSE)

Modified: pkg/R/phylo4.R
===================================================================
--- pkg/R/phylo4.R	2008-12-22 02:30:59 UTC (rev 390)
+++ pkg/R/phylo4.R	2008-12-22 02:35:00 UTC (rev 391)
@@ -50,6 +50,10 @@
     standardGeneric("hasEdgeLabels")
 })
 
+setGeneric("edgeOrder", function(x) {
+  standardGeneric("edgeOrder")
+})
+
 setGeneric("labels")
 
 setGeneric("labels<-", 

Modified: pkg/man/nNodes-methods.Rd
===================================================================
--- pkg/man/nNodes-methods.Rd	2008-12-22 02:30:59 UTC (rev 390)
+++ pkg/man/nNodes-methods.Rd	2008-12-22 02:35:00 UTC (rev 391)
@@ -17,6 +17,8 @@
 \alias{nEdges}
 \alias{nEdges-methods}
 \alias{nEdges,phylo4-method}
+\alias{edgeOrder}
+\alias{edgeOrder,phylo4-method}
 \alias{hasEdgeLength}
 \alias{hasEdgeLength-methods}
 \alias{hasEdgeLength,phylo4-method}