library("Gviz")
gen <- "hg19"
chr<-"chr1"
start <- 1000
end <- 329000
if(interactive()){
extdata <- system.file("extdata", package="coMET",mustWork=TRUE)
bedFilePath <- file.path(extdata, "ENCODE/motifs1000_matches_ENCODE.txt")
motif_color <- file.path(extdata, "ENCODE/TFmotifs_colors.csv")
chipTFtrack <- ChIPTF_ENCODE(gen,chr,start, end, bedFilePath, featureDisplay=c("AHR::ARNT::HIF1A_1","AIRE_1","AIRE_2","AHR::ARNT_1"), motif_color,type_stacking="squish",showId=TRUE)
plotTracks(chipTFtrack, from = start, to = end)
} else {
data(chipTFtrack)
plotTracks(chipTFtrack, from = start, to = end)
}
Run the code above in your browser using DataLab