[adegenet-commits] r668 - pkg/R

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

Author: jombart
Date: 2010-09-16 16:43:31 +0200 (Thu, 16 Sep 2010)
New Revision: 668

Modified:
   pkg/R/sequences.R
Log:
Some additional checks added.


Modified: pkg/R/sequences.R
===================================================================
--- pkg/R/sequences.R	2010-09-16 11:29:28 UTC (rev 667)
+++ pkg/R/sequences.R	2010-09-16 14:43:31 UTC (rev 668)
@@ -84,6 +84,8 @@
     ## misc checks
     if(!inherits(x,"alignment")) stop("x is not a alignment object")
     if(!require(seqinr)) stop("The package seqinr is required.")
+    N <- length(x$seq)
+    if(!is.null(x$nam) && length(x$nam)!=N) stop("Inconsistent names in x (length of x$nam and x$seq do not match). ")
 
 
     ## convert alignment to matrix of characters