## Collapse the coverage information
collapsedFull <- collapseFullCoverage(list(genomeData$coverage),
verbose = TRUE)
## Calculate library size adjustments
sampleDepths <- sampleDepth(collapsedFull, probs = c(0.5), nonzero=TRUE,
verbose=TRUE)
## Build the models
groupInfo <- genomeInfo$pop
adjustvars <- data.frame(genomeInfo$gender)
models <- makeModels(sampleDepths, testvars=groupInfo, adjustvars=adjustvars)
## Analyze the chromosome
results <- analyzeChr(chr='21', coverageInfo=genomeData, models=models,
cutoffFstat=1, cutoffType='manual', groupInfo=groupInfo, mc.cores=1,
writeOutput=FALSE, returnOutput=TRUE, method='regular',
runAnnotation = FALSE)
names(results)
Run the code above in your browser using DataLab