hic.file <- system.file("exdata", "hic_sort.bam", package="diffHic")
cuts <- readRDS(system.file("exdata", "cuts.rds", package="diffHic"))
param <- pairParam(cuts)
require(rhdf5)
fout <- "temp.h5"
fout2 <- "temp2.h5"
invisible(preparePairs(hic.file, param, fout))
x <- prunePairs(fout, param, fout2)
h5read(fout2, "chrA/chrA")
x <- prunePairs(fout, param, fout2, max.frag=50)
h5read(fout2, "chrA/chrA")
x <- prunePairs(fout, param, fout2, min.inward=50)
h5read(fout2, "chrA/chrA")
x <- prunePairs(fout, param, fout2, min.outward=50)
h5read(fout2, "chrA/chrA")
Run the code above in your browser using DataLab