git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/affxparser@20979 bc3139a8-67e5-0310-9ffc-ced21a209358
... | ... |
@@ -225,7 +225,7 @@ readCdfUnits <- function(filename, units=NULL, readXY=TRUE, readBases=TRUE, read |
225 | 225 |
if (ngroup == 0) |
226 | 226 |
next; |
227 | 227 |
|
228 |
- pm <- !.subset2(.subset2(isPm, uu), gg); |
|
228 |
+ pm <- .subset2(.subset2(isPm, uu), gg); |
|
229 | 229 |
mm <- (1:length(pm))[!pm]; # Note: which(!pm) is about 60% slower! |
230 | 230 |
for (kk in 1:ngroup) { |
231 | 231 |
group[[kk]] <- .subset(.subset2(group, kk), mm); |