... |
... |
@@ -82,7 +82,7 @@ readIdatFiles = function(sampleSheet=NULL,
|
82 |
82 |
headerInfo$ChipType[i] = G$ChipType
|
83 |
83 |
headerInfo$Manifest[i] = G$Unknown$MostlyNull
|
84 |
84 |
headerInfo$Position[i] = G$Unknowns$MostlyA
|
85 |
|
- if(headerInfo$nProbes[i]>(headerInfo$nProbes[1]+10000) || headerInfo$nProbes[i]<(headerInfo$nProbes[1]-10000)) {
|
|
85 |
+ if(headerInfo$nProbes[i]>(headerInfo$nProbes[1]+10000) || headerInfo$nProbes[i]<(headerInfo$nProbes[1]-10000)) {
|
86 |
86 |
warning("Chips are not of the same type. Skipping ", basename(grnidats[i]), " and ", basename(redidats[i]))
|
87 |
87 |
next()
|
88 |
88 |
}
|
... |
... |
@@ -1171,6 +1171,7 @@ genotype.Illumina = function(sampleSheet=NULL,
|
1171 |
1171 |
is.lds = ifelse(isPackageLoaded("ff"), TRUE, FALSE)
|
1172 |
1172 |
if(missing(cdfName)) stop("must specify cdfName")
|
1173 |
1173 |
if(!isValidCdfName(cdfName)) stop("cdfName not valid. see validCdfNames")
|
|
1174 |
+ pkgname = getCrlmmAnnotationName(cdfName)
|
1174 |
1175 |
callSet = construct.Illumina(sampleSheet=sampleSheet, arrayNames=arrayNames,
|
1175 |
1176 |
ids=ids, path=path, arrayInfoColNames=arrayInfoColNames,
|
1176 |
1177 |
highDensity=highDensity, sep=sep, fileExt=fileExt,
|
... |
... |
@@ -1181,7 +1182,7 @@ genotype.Illumina = function(sampleSheet=NULL,
|
1181 |
1182 |
is.snp = isSnp(callSet)
|
1182 |
1183 |
snp.index = which(is.snp)
|
1183 |
1184 |
narrays = ncol(callSet)
|
1184 |
|
-
|
|
1185 |
+
|
1185 |
1186 |
if(is.lds) {
|
1186 |
1187 |
sampleBatches = splitIndicesByNode(seq(along=sampleNames(callSet)))
|
1187 |
1188 |
|
... |
... |
@@ -1194,7 +1195,7 @@ genotype.Illumina = function(sampleSheet=NULL,
|
1194 |
1195 |
sep=sep, fileExt=fileExt, saveDate=saveDate, verbose=verbose, mixtureSampleSize=mixtureSampleSize,
|
1195 |
1196 |
fitMixture=fitMixture, eps=eps, seed=seed, cdfName=cdfName, sns=sns, stripNorm=stripNorm,
|
1196 |
1197 |
useTarget=useTarget, A=A(callSet), B=B(callSet), SKW=SKW, SNR=SNR,
|
1197 |
|
- mixtureParams=mixtureParams, is.snp=is.snp, neededPkgs=c("crlmm", cdfName))
|
|
1198 |
+ mixtureParams=mixtureParams, is.snp=is.snp, neededPkgs=c("crlmm", pkgname))
|
1198 |
1199 |
|
1199 |
1200 |
open(SKW)
|
1200 |
1201 |
open(SNR)
|