x <- tibble::tribble(
~chrom, ~start, ~end, ~strand,
"chr1", 20, 70, "+",
"chr1", 50, 100, "-",
"chr1", 200, 250, "+",
"chr1", 220, 250, "+"
)
genome <- tibble::tribble(
~chrom, ~size,
"chr1", 500,
"chr2", 1000
)
bed_genomecov(x, genome)
bed_genomecov(dplyr::group_by(x, strand), genome)
bed_genomecov(dplyr::group_by(x, strand), genome, zero_depth = TRUE)
Run the code above in your browser using DataLab