library(h5vc) # loading library
tallyFile <- system.file( "extdata", "example.tally.hfs5", package = "h5vcData" )
sampleData <- getSampleData( tallyFile, "/ExampleStudy/16" )
position <- 29979629
windowsize <- 2000
vars <- h5dapply( # Calling Variants
filename = tallyFile,
group = "/ExampleStudy/16",
blocksize = 1000,
FUN = callVariantsPairedFisher,
sampledata = sampleData,
pValCutOff = 0.1,
names = c("Coverages", "Counts", "Reference"),
range = c(position - windowsize, position + windowsize),
verbose = TRUE
)
vars <- do.call(rbind, vars)
vars
Run the code above in your browser using DataLab