[Genabel-commits] r1503 - pkg/GenABEL/R

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

Author: maksim
Date: 2013-12-26 06:20:39 +0100 (Thu, 26 Dec 2013)
New Revision: 1503

Modified:
   pkg/GenABEL/R/impute2databel.R
Log:
Made using iterator from GenABEL instead of DatABEL


Modified: pkg/GenABEL/R/impute2databel.R
===================================================================
--- pkg/GenABEL/R/impute2databel.R	2013-12-23 10:04:09 UTC (rev 1502)
+++ pkg/GenABEL/R/impute2databel.R	2013-12-26 05:20:39 UTC (rev 1503)
@@ -108,13 +108,13 @@
     res <- .Call("iterator", tmp_fv at data, as.integer(0), as.integer(0),
                  as.character("databel_impute_prob_2_databel_mach_dose"),
                  paste(outfile, ".dose", sep=""), as.integer(2),
-                 as.integer(0), PACKAGE="DatABEL")
+                 as.integer(0))
     dosefile <- databel(paste(outfile, ".dose", sep=""), 64, readonly=FALSE)
     if (makeprob) {
       res <- .Call("iterator", tmp_fv at data, as.integer(0), as.integer(0),
                    as.character("databel_impute_prob_2_databel_mach_prob"),
                    paste(outfile, ".prob", sep=""), as.integer(2),
-                   as.integer(0), PACKAGE="DatABEL")
+                   as.integer(0))
       probfile <- databel(paste(outfile, ".prob", sep=""), 64, readonly=FALSE)
     }