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

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

Author: yurii
Date: 2011-07-08 20:09:30 +0200 (Fri, 08 Jul 2011)
New Revision: 749

Modified:
   pkg/GenABEL/R/ss.R
Log:
restoring occasionally deleted line

Modified: pkg/GenABEL/R/ss.R
===================================================================
--- pkg/GenABEL/R/ss.R	2011-07-07 12:30:56 UTC (rev 748)
+++ pkg/GenABEL/R/ss.R	2011-07-08 18:09:30 UTC (rev 749)
@@ -1,3 +1,4 @@
+#
 #defining snp.mx -- internal class
 #
 #setClass("genotype",contains="data.frame",package="GenABEL")
@@ -14,6 +15,7 @@
 			x <- x at .Data[k, j , drop = FALSE]
 			if (missing(i)) i=c(1:(nrow(x)*4));
 			if (is.logical(i)) i=which(i)
+			x <- sset(as.raw(x),length(j),nrow(x)*4,i)
 			dim(x) <- c(ceiling(length(i)/4),length(j))
 			if (is.matrix(x)) 
 				x <- new("snp.mx",x)