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:
# data(RPKMS)
#
# x <- ChiapetExperimentData(pet = petFile, tfbs= tfbsFile, IsBed = FALSE, ppiType="HPRD", filter= TRUE)
# ## build the different indexes
# x <- createIndexes(x)
# ## build networks connecting each interacting regions
# nets<- buildNetworks(x)
#
# ## infer the networks
# hlda<- InferNetworks(nets)
# topNodes(hlda)
#
# hlda <- updateResults(hlda, nets, 0.4)
# topNodes(hlda)
# ## End(Not run)
Run the code above in your browser using DataLab