## ---- eval=TRUE----------------------------------------------------------
library(epivizrChart)
library(Homo.sapiens)
library(epivizWorkshop)

## ------------------------------------------------------------------------
epivizEnv <- epivizEnv(chr="chr11", start= 34000000, end = 39000000)

## ------------------------------------------------------------------------
genes_track <- epivizChart(Homo.sapiens, parent=epivizEnv)
genes_track

## ------------------------------------------------------------------------
data(cgi_gr)
cgi_track <- epivizChart(cgi_gr, parent=epivizEnv, datasource_name="CpG Islands")
cgi_track

## ------------------------------------------------------------------------
data(bcode_eset)
bcode_hmap <- epivizChart(bcode_eset, parent=epivizEnv, datasource_name="Gene Expression Barcode", chart="HeatmapPlot")

bcode_hmap

## ------------------------------------------------------------------------
epivizEnv