Browse code

stopifnot(type != "SNP") changed to stopifnot(type=="SNP")

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

Rob Scharp authored on 16/02/2011 15:57:42
Showing1 changed files

... ...
@@ -1302,14 +1302,14 @@ ellipseCenters <- function(object, index, allele, batch, log.it=TRUE){
1302 1302
 
1303 1303
 
1304 1304
 shrinkSummary <- function(object,
1305
-			  type="SNP", 
1305
+			  type="SNP",
1306 1306
 			  MIN.OBS=1,
1307 1307
 			  MIN.SAMPLES=10,
1308 1308
 			  DF.PRIOR=50,
1309 1309
 			  verbose=TRUE,
1310 1310
 			  marker.index,
1311 1311
 			  is.lds){
1312
-	stopifnot(type[[1]] != "SNP")
1312
+	stopifnot(type[[1]] == "SNP")
1313 1313
 	CHR.X <- FALSE ## this is no longer needed
1314 1314
 	if(missing(marker.index)){
1315 1315
 		batch <- batch(object)