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)
# ## plot intractions in the region of interest
# gr <- GRanges("chr1", IRanges(1240000,10300000))
# p <- visualizeInteractions(x, gr)
# p
# ## End(Not run)
Run the code above in your browser using DataLab