fixes in bind.tree()

[ape.git] / R / pic.R

diff --git a/R/pic.R b/R/pic.R
index 122b60d3c7fd679acd091b6a694303d965ce0bc2..816a09b0a6b29b4de083c6f681ea2fe90e0b3b77 100644 (file)
--- a/R/pic.R
+++ b/R/pic.R
@@ -1,8 +1,8 @@
-## pic.R (2010-11-15)
+## pic.R (2011-03-01)
 
 ##   Phylogenetically Independent Contrasts
 
-## Copyright 2002-2010 Emmanuel Paradis
+## Copyright 2002-2011 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -174,7 +174,7 @@ varCompPhylip <- function(x, phy, exec = NULL)
     odir <- setwd(pfx)
     on.exit(setwd(odir))
     if (file.exists("outfile")) unlink("outfile")
-    system("phylip contrast", intern = TRUE, input = c("W", "A", "Y"))
+    system(exec, intern = TRUE, input = c("W", "A", "Y"))
     varA <- scan("outfile", skip = 7, nlines = p, quiet = TRUE)
     varE <- scan("outfile", skip = 11 + p, nlines = p, quiet = TRUE)
     if (p > 1) {