adding lmorigin + final correction to dist.topo

[ape.git] / R / pic.R

diff --git a/R/pic.R b/R/pic.R
index d6f2aa18bbea2a449a7d64e43616099a9969e1d9..b3d2f6680edd0dc9a94d5ff8cabf66c45d81487a 100644 (file)
--- a/R/pic.R
+++ b/R/pic.R
@@ -1,15 +1,15 @@
-## pic.R (2006-10-29)
+## pic.R (2009-05-10)
 
 ##   Phylogenetically Independent Contrasts
 
-## Copyright 2002-2006 Emmanuel Paradis
+## Copyright 2002-2009 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
 
 pic <- function(x, phy, scaled = TRUE, var.contrasts = FALSE)
 {
-    if (class(phy) != "phylo")
+    if (!inherits(phy, "phylo"))
       stop("object 'phy' is not of class \"phylo\"")
     if (is.null(phy$edge.length))
       stop("your tree has no branch lengths: you may consider setting them equal to one, or using the function `compute.brlen'.")