## Not run:
# library(TxDb.Hsapiens.UCSC.hg19.knownGene)
# library(biovizBase)
#
# # Determine the published genomic datasets
# tx.db <- TxDb.Hsapiens.UCSC.hg19.knownGene
# data(genesymbol, package = "biovizBase")
#
# # Create a mutation dataset in TP53
# exon.int <- genesymbol["TP53"]
# set.seed(2)
# N = 10
# mut.gr <- GRanges(seqnames = "chr17",
# IRanges(start = sample(7575000:7580000,
# size = N, replace = TRUE),
# width = 1),
# strand = "-")
#
# mutExonPlot(mut.gr = mut.gr, exon.int = exon.int, l.height = 0, tx.db = tx.db)
# ## End(Not run)
Run the code above in your browser using DataLab