## Create a ChiapetExperimentData object
x <- ChiapetExperimentData(ppiType= "HPRD")
## load TFBS
tfbsFile <- file.path(system.file("example",package="R3CPET"),"HepG2_TF.txt.gz")
x <- loadTFBS(x,tfbsFile=tfbsFile)
tfbs(x)
Run the code above in your browser using DataLab