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