## ---- 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