Browse code

open and close cnSet$gender in genotypeInf

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

Rob Scharp authored on 30/03/2011 02:40:13
Showing1 changed files

... ...
@@ -1211,7 +1211,9 @@ genotypeInf <- function(cnSet, mixtureParams, probs=rep(1/3,3),
1211 1211
 			  badSNP=badSNP,
1212 1212
 			  snp.names=featureNames(cnSet)[snp.index])
1213 1213
 	if(verbose) message("Genotyping finished.  Updating container with genotype calls and confidence scores.")
1214
+	open(cnSet$gender)
1214 1215
 	cnSet$gender[,] = tmp$gender
1216
+	close(cnSet$gender)
1215 1217
 	TRUE
1216 1218
 }
1217 1219