## Load some sample data
data(bmTrack)
## Construct the object
bmTrack <- BiomartGeneRegionTrack(start=26682683, end=26711643,
chromosome=7, genome="mm9")
## For some annoying reason the postscript device does not know about
## the sans font
if(!interactive())
{
font <- ps.options()$family
displayPars(bmTrack) <- list(fontfamily=font, fontfamily.title=font)
}
## Plotting
plotTracks(bmTrack)
## Track names
names(bmTrack)
names(bmTrack) <- "foo"
plotTracks(bmTrack)
## Subsetting and splitting
subTrack <- subset(bmTrack, from=26700000, to=26705000)
length(subTrack)
subTrack <- bmTrack[transcript(bmTrack)=="ENSMUST00000144140"]
split(bmTrack, transcript(bmTrack))
## Accessors
start(bmTrack)
end(bmTrack)
width(bmTrack)
position(bmTrack)
width(subTrack) <- width(subTrack)+100
strand(bmTrack)
strand(subTrack) <- "-"
chromosome(bmTrack)
chromosome(subTrack) <- "chrX"
genome(bmTrack)
genome(subTrack) <- "hg19"
range(bmTrack)
ranges(bmTrack)
## Annotation
identifier(bmTrack)
identifier(bmTrack, "lowest")
identifier(subTrack) <- "bar"
feature(bmTrack)
feature(subTrack) <- "foo"
exon(bmTrack)
exon(subTrack) <- letters[1:2]
gene(bmTrack)
gene(subTrack) <- "bar"
symbol(bmTrack)
symbol(subTrack) <- "foo"
transcript(bmTrack)
transcript(subTrack) <- c("foo", "bar")
chromosome(subTrack) <- "chr7"
plotTracks(subTrack)
values(bmTrack)
## Grouping
group(bmTrack)
group(subTrack) <- "Group 1"
transcript(subTrack)
plotTracks(subTrack)
## Stacking
stacking(bmTrack)
stacking(bmTrack) <- "dense"
plotTracks(bmTrack)
## coercion
as(bmTrack, "data.frame")
as(bmTrack, "UCSCData")
## HTML image map
coords(bmTrack)
tags(bmTrack)
bmTrack <- plotTracks(bmTrack)$foo
coords(bmTrack)
tags(bmTrack)
Run the code above in your browser using DataLab