[adegenet-commits] r216 - branches/devel-unstable/R pkg/R

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

Author: jombart
Date: 2008-12-07 17:00:07 +0100 (Sun, 07 Dec 2008)
New Revision: 216

Modified:
   branches/devel-unstable/R/import.R
   pkg/R/import.R
Log:
Minor fix in read.structure ($other not well read because of a missing ',')


Modified: branches/devel-unstable/R/import.R
===================================================================
--- branches/devel-unstable/R/import.R	2008-12-05 13:16:44 UTC (rev 215)
+++ branches/devel-unstable/R/import.R	2008-12-07 16:00:07 UTC (rev 216)
@@ -652,7 +652,7 @@
 
     ## other variables
     if(!is.null(col.others)){
-        X.other <- mat[col.others]
+        X.other <- mat[,col.others]
     }
 
     ## transformations if onerowperind is FALSE

Modified: pkg/R/import.R
===================================================================
--- pkg/R/import.R	2008-12-05 13:16:44 UTC (rev 215)
+++ pkg/R/import.R	2008-12-07 16:00:07 UTC (rev 216)
@@ -602,7 +602,7 @@
 
   # other variables
   if(!is.null(col.others)){
-    X.other <- mat[col.others]
+    X.other <- mat[, col.others]
   }
 
   ## transformations if onerowperind is FALSE