imprintedGenes_GTEx: Creates a imprinted genes track from GTEx

View source: R/BiofeatureGraphics.R

imprintedGenes_GTExR Documentation

Creates a imprinted genes track from GTEx

Description

Creates a track of imprinted genes from GTEx using the Gviz bioconductor package. A complete list of features and their associated colours can be found in the user guide.

Usage

imprintedGenes_GTEx(gen="hg19", chr,start, end, tissues="all",
classification="all",showId=FALSE, title="Imprinted genes GTEx")

Arguments

gen

the name of the genome. Default value=hg19

chr

The chromosome of interest

start

The starting position in the region of interest (the smallest value)

end

The end position in the region of interest (the largest value)

tissues

list of tissues among 33 tissues in GTEx

classification

list of classification from 5 types (biallelic, consistent with biallelic, consistent with imprinting, imprinted, NC)

showId

logical. say if we write the name of group

title

The name of the annotation track

Value

An AnnotationTrack object of Gviz

Author(s)

Tiphaine Martin

References

http://bioconductor.org/packages/release/bioc/html/Gviz.html

Got to BindingMotifsBiomart binding motif biomart

Examples

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(gen,chr,start, end,
   tissues="all", classification="imprinted",showId=TRUE)
   StomachIGtrack <-imprintedGenes_GTEx(gen,chr,start, end,
   tissues="Stomach", classification="all",showId=TRUE)
   PancreasIGtrack <- imprintedGenes_GTEx(gen,chr,start, end,
   tissues="Pancreas", classification="all",showId=TRUE)
   PancreasimprintedIGtrack <- imprintedGenes_GTEx(gen,chr,start, end,
   tissues="Pancreas", classification="biallelic",showId=TRUE)

   imprintinglist <- list(allIGtrack,allimprintedIGtrack,
   StomachIGtrack,PancreasIGtrack,PancreasimprintedIGtrack)

  plotTracks(imprintinglist, from = start, to = end,
                                   fontfamily="sans",fontfamily.title="sans")

} else {

  data(allIGtrack)
  data(allimprintedIGtrack)
  data(StomachIGtrack)
  data(PancreasIGtrack)
  data(PancreasimprintedIGtrack)

   imprintinglist <- list(allIGtrack,allimprintedIGtrack,
   StomachIGtrack,PancreasIGtrack,PancreasimprintedIGtrack)

  plotTracks(imprintinglist, from = start, to = end,
                                   fontfamily="sans",fontfamily.title="sans")
}


TiphaineCMartin/coMET documentation built on April 27, 2022, 6:45 a.m.