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)
# GUI example
mepHuman(m.data = mut.df, gui = TRUE)
}
if (interactive()) {
# Text interface example
mepHuman(m.data = mut.df)
}
Run the code above in your browser using DataLab