Browse code

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

unknown authored on 26/08/2010 00:39:06
Showing1 changed files

... ...
@@ -693,17 +693,17 @@ preprocessInfinium2 <- function(XY, mixtureSampleSize=10^5,
693 693
     close(mixtureParams)
694 694
     close(SNR)
695 695
 #  }  
696
+  
697
+  res = list(A=A, B=B,
698
+             zero=zero, sns=sns, gns=names(snpIndex), SNR=SNR, SKW=SKW,
699
+             mixtureParams=mixtureParams, cdfName=cdfName)
696 700
 
697 701
   open(res[["A"]])
698 702
   open(res[["B"]])
699 703
   open(res[["zero"]])
700 704
   open(res[["SNR"]])
701
-  open(res[["mixtureParams"]])
705
+  open(res[["mixtureParams"]])  
702 706
   
703
-  res = list(A=A, B=B,
704
-             zero=zero, sns=sns, gns=names(snpIndex), SNR=SNR, SKW=SKW,
705
-             mixtureParams=mixtureParams, cdfName=cdfName)
706
-
707 707
   if(save.it & !missing(snpFile)) {
708 708
     t0 <- proc.time() 
709 709
     save(res, file=snpFile)