library(GenomicAlignments)
gene <- c("A", "B", NA, NA)
type <- c("gene","gene","apa", "apa")
apa <- c(NA, NA, "apa1_A", "apa2_B")
features <- GRanges(
seqnames = Rle(c("chr1", "chr2", "chr1", "chr2")),
strand = strand(rep("+", length(gene))),
ranges = IRanges(
start=c(1000, 2000, 1300, 2050),
width=c(500, 900, 1, 1)),
DataFrame(gene, apa, type)
)
rd1 <- GAlignments("a", seqnames = Rle("chr1"), pos = as.integer(1000), cigar = "300M", strand = strand("+"))
rds <- RoarDatasetMultipleAPA(list(c(rd1,rd1)), list(c(rd1,rd1)), features)
Run the code above in your browser using DataLab