## Collapse the coverage information
collapsedFull <- collapseFullCoverage(list(genomeData$coverage),
verbose = TRUE)
## Calculate library size adjustments
sampleDepths <- sampleDepth(collapsedFull, probs=c(0.5), verbose = TRUE)
## Build the models
group <- genomeInfo$pop
adjustvars <- data.frame(genomeInfo$gender)
models <- makeModels(sampleDepths, testvars = group, adjustvars = adjustvars)
## Preprocess the data
prep <- preprocessCoverage(genomeData, cutoff = 0, scalefac = 32,
chunksize=1e3, colsubset=NULL)
## Run the function
fstats <- calculateStats(prep, models, verbose=TRUE, method='regular')
fstats
## Compare vs pre-packaged F-statistics
library('testthat')
expect_that(fstats, is_equivalent_to(genomeFstats))
Run the code above in your browser using DataLab