# loading library and example data
library(h5vc)
tallyFile <- system.file( "extdata", "example.tally.hfs5", package = "h5vcData" )
sampleData <- getSampleData( tallyFile, "/ExampleStudy/22" )
data <- h5dapply( # extractting coverage binned at 1000 bases
filename = tallyFile,
group = "/ExampleStudy/22",
blocksize = 1000,
FUN = binnedCoverage,
sampledata = sampleData,
gccount = TRUE,
names = c( "Coverages", "Reference" ),
range = c(38900000,39000000)
)
data <- do.call(rbind, data)
rownames(data) <- NULL
head(data)
Run the code above in your browser using DataLab