## get the different datasets path
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)
# ## build the diffrent indexes
# x <- createIndexes(x)
# x
#
# ## build the different indexes
# x <- createIndexes(x)
#
# ## build networks connecting each interacting regions
# nets<- buildNetworks(x)
#
# ## infer the networks
# hlda<- InferNetworks(nets)
#
# networks(hlda)
#
# ## Annotate networks
# hlda<- annotateExpression(hlda,as.data.frame(RPKMS))
#
# ## Notice the addition of the RPKM attribute to each network
# networks(hlda)
# ## End(Not run)
Run the code above in your browser using DataLab