library(cisPath)
inputFile1 <- system.file("extdata", "PINA2PPI.txt", package="cisPath")
inputFile2 <- system.file("extdata", "iRefIndex.txt", package="cisPath")
inputFile3 <- system.file("extdata", "STRINGPPI.txt", package="cisPath")
output <- file.path(tempdir(), "allPPI.txt")
combinePPI(c(inputFile1, inputFile2, inputFile3), output, maxEdgeValue=1.4)Run the code above in your browser using DataLab