Browse code

Added the requirement for more than 8 samples when running krlmm

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

unknown authored on 11/06/2014 01:17:05
Showing1 changed files

... ...
@@ -1311,6 +1311,8 @@ genotype.Illumina <- function(sampleSheet=NULL,
1311 1311
 				    batch=batch,
1312 1312
 				    saveDate=saveDate)
1313 1313
 #        }
1314
+        if(call.method=="krlmm" && ncol(cnSet)<8)
1315
+           stop(paste("To run krlmm you need at least 8 samples (in general, the more the better).  You currently have", ncol(cnSet)))
1314 1316
 	mixtureParams <- preprocessInf(cnSet=cnSet,
1315 1317
 				    sampleSheet=sampleSheet,
1316 1318
 				    arrayNames=arrayNames,