library("Gviz")
gen<-"hg19"
chr<- "chr6"
start <- 144251437
end <- 144330541
if(interactive()){
allIGtrack <- imprintedGenes_GTEx(gen,chr,start, end, tissues="all", classification="imprinted",showId=TRUE)
allimprintedIGtrack <- imprintedGenes_GTEx(chr,start, end, tissues="all", classification="imprinted",showId=TRUE)
StomachIGtrack <-imprintedGenes_GTEx(chr,start, end, tissues="Stomach", classification="all",showId=TRUE)
PancreasIGtrack <- imprintedGenes_GTEx(chr,start, end, tissues="Pancreas", classification="all",showId=TRUE)
PancreasimprintedIGtrack <- imprintedGenes_GTEx(chr,start, end, tissues="Pancreas", classification="biallelic",showId=TRUE)
imprintinglist <- list(allIGtrack,allimprintedIGtrack,StomachIGtrack,PancreasIGtrack,PancreasimprintedIGtrack)
plotTracks(,imprintinglist, from = start, to = end)
} else {
data(allIGtrack)
data(allimprintedIGtrack)
data(StomachIGtrack)
data(PancreasIGtrack)
data(PancreasimprintedIGtrack)
imprintinglist <- list(allIGtrack,allimprintedIGtrack,StomachIGtrack,PancreasIGtrack,PancreasimprintedIGtrack)
plotTracks(imprintinglist, from = start, to = end)
}
Run the code above in your browser using DataLab