petFile <- file.path(system.file("example",package="R3CPET"),"HepG2_interactions.txt")
tfbsFile <- file.path(system.file("example",package="R3CPET"),"HepG2_TF.txt.gz")
## Not run:
# x <- ChiapetExperimentData(pet = petFile, tfbs= tfbsFile, IsBed = FALSE, ppiType="HPRD", filter= TRUE)
# gr <- GRanges("chr1",IRanges(start=100000,end=300000))
# plotTrack(x,gr)
# ## End(Not run)
Run the code above in your browser using DataLab