Browse code

changed 'batches' to 'sample.strata' in genotype function to avoid confusion

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

Rob Scharp authored on 21/08/2010 02:48:00
Showing 1 changed files

... ...
@@ -132,11 +132,11 @@ genotype <- function(filenames,
132 132
 	##lM(callSet) <- initializeParamObject(list(featureNames(callSet), unique(protocolData(callSet)$batch)))
133 133
 	mixtureParams <- matrix(NA, 4, length(filenames))
134 134
 	snp.index <- which(isSnp(callSet)==1)
135
-	batches <- splitIndicesByLength(1:ncol(callSet), ocSamples())
135
+	sample.strata <- splitIndicesByLength(1:ncol(callSet), ocSamples())
136 136
 	iter <- 1
137 137
 ##	for(j in batches){
138
-	j <- unlist(batches)
139
-		if(verbose) message("Batch ", iter, " of ", length(batches))
138
+	j <- unlist(sample.strata)
139
+		if(verbose) message("Batch ", iter, " of ", length(sample.strata))
140 140
 		snprmaRes <- snprma(filenames=filenames[j],
141 141
 				    mixtureSampleSize=mixtureSampleSize,
142 142
 				    fitMixture=TRUE,