if (interactive()) {
# Create a missense mutations dataset in TP53
set.seed(1)
locations = sample(7571720:7590863, size = 25)
mut.df <- data.frame(chrom = "chr17",
start = locations,
end = locations,
strand = "-",
fill = 1:25)
library(gWidgetsRGtk2)
library(RGtk2)
# hg19 GUI example
mepHuman(dataFrame = mut.df, gui = TRUE)
}
Run the code above in your browser using DataLab