[Phylobase-commits] r516 - pkg/R

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

Author: francois
Date: 2009-08-19 23:38:30 +0200 (Wed, 19 Aug 2009)
New Revision: 516

Modified:
   pkg/R/methods-phylo4d.R
Log:
removed redundant method definitions for phylo4d objects: names, head, tail

Modified: pkg/R/methods-phylo4d.R
===================================================================
--- pkg/R/methods-phylo4d.R	2009-08-19 20:53:05 UTC (rev 515)
+++ pkg/R/methods-phylo4d.R	2009-08-19 21:38:30 UTC (rev 516)
@@ -217,18 +217,3 @@
     na.index <- which(!complete.cases(tipdata))
     prune(object, tip = na.index)
 })
-
-setMethod("names", signature(x = "phylo4d"), function(x) {
-    temp <- rev(names(attributes(x)))[-1]
-    return(rev(temp))
-})
-
-setMethod("head",signature(x = 'phylo4d'),
-          function(x,n=20) {
-            head(as(x,"data.frame"),n=n)
-          })
-
-setMethod("tail",signature(x = 'phylo4d'),
-          function(x,n=20) {
-            tail(as(x,"data.frame"),n=n)
-          })