Browse code

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/crlmm@50081 bc3139a8-67e5-0310-9ffc-ced21a209358

unknown authored on 10/10/2010 23:35:54
Showing1 changed files

... ...
@@ -1328,7 +1328,7 @@ processIDAT =  function(sel, sampleSheet=NULL,
1328 1328
         open(RG@assayData$R); open(RG@assayData$G); open(RG@assayData$zero)
1329 1329
         delete(RG@assayData$R); delete(RG@assayData$G); delete(RG@assayData$zero); rm(RG)
1330 1330
         gc()
1331
-        if (missing(sns)) sns = sampleNames(XY)
1331
+        if (missing(sns) || length(sns)!=ncol(XY)) sns = sampleNames(XY)
1332 1332
         
1333 1333
         res = preprocessInfinium2(XY, mixtureSampleSize=mixtureSampleSize, fitMixture=TRUE, verbose=verbose,
1334 1334
                                seed=seed, eps=eps, cdfName=cdfName, sns=sns, stripNorm=stripNorm, useTarget=useTarget)