# examples
infoFile <- system.file("extdata", "PPI_Info.txt", package="cisPath")
# source protein: TP53
# Identify the shortest functional paths from TP53 to all other relevant proteins
outputDir <- file.path(tempdir(), "TP53_example1")
results <- cisPath(infoFile, outputDir, "TP53", byStep=TRUE)
# Identify the shortest paths from TP53 to proteins MAGI1 and GH1
outputDir <- file.path(tempdir(), "TP53_example2")
results <- cisPath(infoFile, outputDir, "TP53", targetProteins=c("MAGI1", "GH1"), byStep=TRUE)
results
# Identify the shortest paths from TP53 to proteins Q96QZ7 and P01241 (with the Swiss-Prot accession numbers)
outputDir <- file.path(tempdir(), "TP53_example3")
results <- cisPath(infoFile, outputDir, "TP53", targetProteins=c("Q96QZ7", "P01241"), swissProtID=TRUE, byStep=FALSE)
# Identify the shortest functional paths in the web page
outputDir <- file.path(tempdir(), "cisPath_example")
results <- cisPath(infoFile, outputDir)
# example of downloading PPI data from our website
# Change to your own output directory
outputDir <- file.path(getwd(), "TP53")
# Create the output directory
dir.create(outputDir, showWarnings=FALSE, recursive=TRUE)
# infoFile: site where the PPI data file will be saved.
infoFile <- file.path(outputDir, "PPIdata.txt")
# Download PPI data from our website
download.file("http://www.isb.pku.edu.cn/cispath/data/Homo_sapiens_PPI.txt", infoFile)
download.file("http://www.isb.pku.edu.cn/cispath/data/Caenorhabditis_elegans_PPI.txt", infoFile)
download.file("http://www.isb.pku.edu.cn/cispath/data/Drosophila_melanogaster_PPI.txt", infoFile)
download.file("http://www.isb.pku.edu.cn/cispath/data/Mus_musculus_PPI.txt", infoFile)
download.file("http://www.isb.pku.edu.cn/cispath/data/Rattus_norvegicus_PPI.txt", infoFile)
download.file("http://www.isb.pku.edu.cn/cispath/data/Saccharomyces_cerevisiae_PPI.txt", infoFile)
results <- cisPath(infoFile, outputDir, "TP53")
outputDir <- file.path(getwd(), "cisPathWeb")
results <- cisPath(infoFile, outputDir)Run the code above in your browser using DataLab