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
| ... | ... |
@@ -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 |
|