A <- AlignedGenomeIntervals(
start=c(1,8,14,20), end=c(5,15,19,25),
chromosome=rep("chr1", each=4),
strand=c("+","+","+","+"),
sequence=c("ACATT","TATCGGAC","TCGGACT","GTAACG"),
reads=c(7L, 2L, 4L, 5L) )
M2 <- new("Genome_intervals_stranded",
rbind(c(2,6), c(1,15), c(20,30)),
closed = matrix(TRUE, ncol=2, nrow=3),
annotation = data.frame(
seq_name= factor(rep("chr1", 3)),
inter_base= logical(3),
strand=factor(rep("+", 3), levels=c("+","-")),
alias=c("miRNA1","gene1","tRNA1"),
type=c("miRNA","gene","tRNA")) )
if (interactive()){
grid.newpage()
plot(A, M2, chr="chr1", start=0, end=35,
nameColum="alias", show="plus")
}
countReadsAnnotated(A, M2, typeColumn="type")
Run the code above in your browser using DataLab