X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fpic.R;h=b1cb20b17921668f98e4375a95093d4ad3fda44b;hb=2014b83971be4b9cd1644d6127837df798e9335c;hp=816a09b0a6b29b4de083c6f681ea2fe90e0b3b77;hpb=2061f73318413f7a23db30be1deb8d42ab12f64c;p=ape.git

diff --git a/R/pic.R b/R/pic.R
index 816a09b..b1cb20b 100644
--- a/R/pic.R
+++ b/R/pic.R
@@ -1,8 +1,8 @@
-## pic.R (2011-03-01)
+## pic.R (2012-09-11)
 
 ##   Phylogenetically Independent Contrasts
 
-## Copyright 2002-2011 Emmanuel Paradis
+## Copyright 2002-2012 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -22,7 +22,7 @@ pic <- function(x, phy, scaled = TRUE, var.contrasts = FALSE)
     if (any(is.na(x)))
       stop("missing data in 'x': you may consider removing the species with missing data from your tree with the function 'drop.tip'.")
 
-    phy <- reorder(phy, "pruningwise")
+    phy <- reorder(phy, "postorder")
     phenotype <- numeric(nb.tip + nb.node)
 
     if (is.null(names(x))) {