example(SplicingGraphs) # create SplicingGraphs object 'sg'
sg
## 'sg' has 1 element per gene and 'names(sg)' gives the gene ids.
names(sg)
graphA <- sgraph(sg["geneA"], tx_id.as.edge.label=TRUE)
if (interactive()) {
## Edges are labeled with the transcript ids (or names), in blue.
## The orange arrows are edges corresponding to exons:
plot(graphA)
## Note that plot() works directly on a SplicingGraphs object of
## length 1:
plot(sg["geneB"])
## Slideshow of the graphs:
slideshow(sg)
}
Run the code above in your browser using DataLab