[adegenet-commits] r431 - pkg/R

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

Author: jombart
Date: 2009-09-01 13:11:35 +0200 (Tue, 01 Sep 2009)
New Revision: 431

Modified:
   pkg/R/sequences.R
Log:
small tweak


Modified: pkg/R/sequences.R
===================================================================
--- pkg/R/sequences.R	2009-09-01 10:49:49 UTC (rev 430)
+++ pkg/R/sequences.R	2009-09-01 11:11:35 UTC (rev 431)
@@ -94,9 +94,9 @@
     ## get numbers of differing nucleotides between sequences
     seq.length <- ncol(as.matrix(x))
     D <- as.matrix(dist.dna(x, model="raw")) * seq.length
-    if(sum(D-round(D)) > 1e-10){ # make sure we've got integers there
-        warning("Number of nucleotides are not all integers")
-    }
+    ## if(sum(D-round(D)) > 1e-10){ # make sure we've got integers there
+    ##         warning("Number of nucleotides are not all integers")
+    ##     }
     D <- round(D)
 
     ## compute matrix T (time between sequences)