a <- makeAnnotationTrack(start = c(10, 15, 25), end = c(12, 19, 31),
group = c(1,1,2), feature = c("gene", "gene", "tf"),
ID = paste("id", 1:3, sep = ""), dp = DisplayPars(gene = 'blue'))
gdPlot(a, minBase = 0, maxBase = 40)
Run the code above in your browser using DataLab