[Adephylo-commits] r74 - pkg/R

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

Author: jombart
Date: 2008-12-02 17:43:20 +0100 (Tue, 02 Dec 2008)
New Revision: 74

Modified:
   pkg/R/orthogram.R
Log:
Added a match.arg to orthogram (alert was messed up).


Modified: pkg/R/orthogram.R
===================================================================
--- pkg/R/orthogram.R	2008-12-02 16:42:04 UTC (rev 73)
+++ pkg/R/orthogram.R	2008-12-02 16:43:20 UTC (rev 74)
@@ -7,6 +7,7 @@
     if(!require(ade4)) stop("The ade4 package is not installed.")
 
     nobs <- length(x)
+    alter <- match.arg(alter)
 
     if(is.numeric(x)&is.vector(x)){
         type <- "numeric"