[Adephylo-commits] r73 - pkg/R

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

Author: jombart
Date: 2008-12-02 17:42:04 +0100 (Tue, 02 Dec 2008)
New Revision: 73

Modified:
   pkg/R/orthogram.R
Log:
small typo.


Modified: pkg/R/orthogram.R
===================================================================
--- pkg/R/orthogram.R	2008-12-02 16:41:04 UTC (rev 72)
+++ pkg/R/orthogram.R	2008-12-02 16:42:04 UTC (rev 73)
@@ -6,7 +6,8 @@
     ## some checks and preliminary assignements
     if(!require(ade4)) stop("The ade4 package is not installed.")
 
-    nbos <- length(x)
+    nobs <- length(x)
+
     if(is.numeric(x)&is.vector(x)){
         type <- "numeric"
         ##  } else if(is.factor(x)){