library(cisPath)
infoFile <- system.file("extdata", "PPI_Info.txt", package="cisPath")
outputDir <- file.path(tempdir(), "networkView")
networkView(infoFile, c("MAGI1","TP53BP2","TP53", "PTEN"), outputDir, FALSE, c(1,1,1,0), displayMore=TRUE)
outputDir2 <- file.path(tempdir(), "networkView2")
inputFile <- system.file("extdata", "networkView.txt", package="cisPath")
rt <- read.table(inputFile, sep=",", comment.char="", header=TRUE)
proteins <- as.vector(rt[,1])
sizes <- as.vector(rt[,2])
nodeColors <- as.vector(rt[,3])
networkView(infoFile, proteins, outputDir2, FALSE, sizes, nodeColors, displayMore=FALSE)Run the code above in your browser using DataLab